forked from KolibriOS/kolibrios
Clib string & memory functions
git-svn-id: svn://kolibrios.org@553 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Sergey Semyonov (Serge)
289
programs/develop/open watcom/trunk/clib/memory/memtest.c
Normal file
289
programs/develop/open watcom/trunk/clib/memory/memtest.c
Normal file
@@ -0,0 +1,289 @@
|
||||
/****************************************************************************
|
||||
*
|
||||
* Open Watcom Project
|
||||
*
|
||||
* Portions Copyright (c) 1983-2002 Sybase, Inc. All Rights Reserved.
|
||||
*
|
||||
* ========================================================================
|
||||
*
|
||||
* This file contains Original Code and/or Modifications of Original
|
||||
* Code as defined in and that are subject to the Sybase Open Watcom
|
||||
* Public License version 1.0 (the 'License'). You may not use this file
|
||||
* except in compliance with the License. BY USING THIS FILE YOU AGREE TO
|
||||
* ALL TERMS AND CONDITIONS OF THE LICENSE. A copy of the License is
|
||||
* provided with the Original Code and Modifications, and is also
|
||||
* available at www.sybase.com/developer/opensource.
|
||||
*
|
||||
* The Original Code and all software distributed under the License are
|
||||
* distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
|
||||
* EXPRESS OR IMPLIED, AND SYBASE AND ALL CONTRIBUTORS HEREBY DISCLAIM
|
||||
* ALL SUCH WARRANTIES, INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF
|
||||
* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR
|
||||
* NON-INFRINGEMENT. Please see the License for the specific language
|
||||
* governing rights and limitations under the License.
|
||||
*
|
||||
* ========================================================================
|
||||
*
|
||||
* Description: WHEN YOU FIGURE OUT WHAT THIS FILE DOES, PLEASE
|
||||
* DESCRIBE IT HERE!
|
||||
*
|
||||
****************************************************************************/
|
||||
|
||||
|
||||
/*
|
||||
* MEMTEST.C
|
||||
* Non-exhaustive test of the C library memory manipulation functions.
|
||||
*/
|
||||
|
||||
#include <stdio.h>
|
||||
#include <stdlib.h>
|
||||
#include <string.h>
|
||||
#if defined(__386__) || defined(M_I86)
|
||||
#include <i86.h>
|
||||
#endif
|
||||
#ifdef __SW_BW
|
||||
#include <wdefwin.h>
|
||||
#endif
|
||||
|
||||
|
||||
#define VERIFY( exp ) if( !(exp) ) { \
|
||||
printf( "%s: ***FAILURE*** at line %d of %s.\n",\
|
||||
ProgramName, __LINE__, \
|
||||
strlwr(__FILE__) ); \
|
||||
NumErrors++; \
|
||||
exit(-1); \
|
||||
}
|
||||
|
||||
void TestCompare( void );
|
||||
void TestCompareF( void );
|
||||
void TestCopy( void );
|
||||
void TestCopyF( void );
|
||||
void TestOverlap( void );
|
||||
void TestOverlapF( void );
|
||||
void TestMisc( void );
|
||||
|
||||
|
||||
char ProgramName[128]; /* executable filename */
|
||||
int NumErrors = 0; /* number of errors */
|
||||
|
||||
|
||||
|
||||
/****
|
||||
***** Program entry point.
|
||||
****/
|
||||
|
||||
int main( int argc, char *argv[] )
|
||||
{
|
||||
#ifdef __SW_BW
|
||||
FILE *my_stdout;
|
||||
my_stdout = freopen( "tmp.log", "a", stdout );
|
||||
if( my_stdout == NULL ) {
|
||||
fprintf( stderr, "Unable to redirect stdout\n" );
|
||||
exit( -1 );
|
||||
}
|
||||
#endif
|
||||
|
||||
/*** Initialize ***/
|
||||
strcpy( ProgramName, strlwr(argv[0]) ); /* store filename */
|
||||
|
||||
/*** Test various functions ***/
|
||||
TestCompare(); /* comparing stuff */
|
||||
TestCopy(); /* copying stuff */
|
||||
TestOverlap(); /* test overlapping copy */
|
||||
TestMisc(); /* other stuff */
|
||||
|
||||
#if defined(__386__) || defined(M_I86)
|
||||
TestCompareF();
|
||||
TestCopyF();
|
||||
TestOverlapF();
|
||||
#endif
|
||||
|
||||
/*** Print a pass/fail message and quit ***/
|
||||
if( NumErrors!=0 ) {
|
||||
printf( "%s: SUCCESS.\n", ProgramName );
|
||||
return( EXIT_SUCCESS );
|
||||
}
|
||||
printf( "Tests completed (%s).\n", strlwr( argv[0] ) );
|
||||
#ifdef __SW_BW
|
||||
{
|
||||
fprintf( stderr, "Tests completed (%s).\n", strlwr( argv[0] ) );
|
||||
fclose( my_stdout );
|
||||
_dwShutDown();
|
||||
}
|
||||
#endif
|
||||
return( 0 );
|
||||
}
|
||||
|
||||
|
||||
|
||||
/****
|
||||
***** Test memcmp(), memicmp(), and memchr().
|
||||
****/
|
||||
|
||||
void TestCompare( void )
|
||||
{
|
||||
char buf[80];
|
||||
char * ptr;
|
||||
int status;
|
||||
|
||||
strcpy( buf, "Foo !" ); /* initialize string */
|
||||
|
||||
status = memcmp( buf, "Foo", 3 ); /* compare */
|
||||
VERIFY( status == 0 );
|
||||
|
||||
status = memcmp( buf, "Foo!", 4 ); /* compare */
|
||||
VERIFY( status != 0 );
|
||||
|
||||
status = memicmp( buf, "FOO", 3 ); /* compare */
|
||||
VERIFY( status == 0 );
|
||||
|
||||
status = memicmp( buf, "fOo!", 4 ); /* compare */
|
||||
VERIFY( status != 0 );
|
||||
|
||||
ptr = memchr( buf, '~', 6 ); /* try to find a tilde */
|
||||
VERIFY( ptr == NULL );
|
||||
|
||||
ptr = memchr( buf, '!', 6 ); /* find the '!' */
|
||||
VERIFY( ptr == buf+4 );
|
||||
}
|
||||
|
||||
|
||||
#if defined(__386__) || defined(M_I86)
|
||||
void TestCompareF( void )
|
||||
{
|
||||
char buf[80];
|
||||
char __far * ptr;
|
||||
int status;
|
||||
|
||||
strcpy( buf, "Foo !" ); /* initialize string */
|
||||
|
||||
status = _fmemcmp( buf, "Foo", 3 ); /* compare */
|
||||
VERIFY( status == 0 );
|
||||
|
||||
status = _fmemcmp( buf, "Foo!", 4 ); /* compare */
|
||||
VERIFY( status != 0 );
|
||||
|
||||
ptr = _fmemchr( buf, '~', 6 ); /* try to find a tilde */
|
||||
VERIFY( ptr == NULL );
|
||||
|
||||
ptr = _fmemchr( buf, '!', 6 ); /* find the '!' */
|
||||
VERIFY( ptr == buf+4 );
|
||||
}
|
||||
#endif
|
||||
|
||||
|
||||
|
||||
/****
|
||||
***** Test memcpy(), memccpy(), and movedata().
|
||||
****/
|
||||
|
||||
void TestCopy( void )
|
||||
{
|
||||
char bufA[80], bufB[80];
|
||||
|
||||
strcpy( bufB, "Hello, world!" ); /* initialize bufB */
|
||||
memccpy( bufA, bufB, 'o', strlen(bufB)+1 ); /* copy "Hello" to bufA */
|
||||
VERIFY( !memcmp(bufA, "Hello", 5) ); /* ensure copied ok */
|
||||
|
||||
memcpy( bufA, bufB, strlen(bufB)+1 ); /* copy to bufA */
|
||||
VERIFY( !strcmp(bufA, bufB) ); /* ensure copied ok */
|
||||
}
|
||||
|
||||
|
||||
#if defined(__386__) || defined(M_I86)
|
||||
void TestCopyF( void )
|
||||
{
|
||||
char __far bufA[80], bufB[80];
|
||||
char __far testStr[] = "Foo Bar Goober Blah";
|
||||
|
||||
strcpy( bufB, "Hello, world!" ); /* initialize bufB */
|
||||
_fmemccpy( bufA, bufB, 'o', strlen(bufB)+1 ); /* copy "Hello" to bufA */
|
||||
VERIFY( !_fmemcmp(bufA, "Hello", 5) ); /* ensure copied ok */
|
||||
|
||||
_fmemcpy( bufA, bufB, strlen(bufB)+1 ); /* copy to bufA */
|
||||
VERIFY( !_fstrcmp(bufA, bufB) ); /* ensure copied ok */
|
||||
|
||||
movedata( FP_SEG(bufA), FP_OFF(bufA), /* copy data */
|
||||
FP_SEG(testStr), FP_OFF(testStr),
|
||||
_fstrlen(testStr) );
|
||||
VERIFY( !_fmemcmp(bufA, testStr, _fstrlen(testStr)) );
|
||||
}
|
||||
#endif
|
||||
|
||||
|
||||
|
||||
/****
|
||||
***** Test memmove().
|
||||
****/
|
||||
|
||||
void TestOverlap( void )
|
||||
{
|
||||
char bufA[80], bufB[80];
|
||||
|
||||
strcpy( bufA, " Hello, world!" ); /* initialize string */
|
||||
|
||||
memmove( bufB, bufA, strlen(bufA)+1 ); /* copy string */
|
||||
VERIFY( !strcmp(bufB, bufA) );
|
||||
|
||||
memmove( bufA, bufA+1, strlen(bufA+1) ); /* shift one character over */
|
||||
VERIFY( !strcmp(bufA, "Hello, world!!") );
|
||||
|
||||
memmove( bufA+1, bufA, strlen(bufA+1) );
|
||||
VERIFY( !strcmp(bufA, "HHello, world!") );
|
||||
}
|
||||
|
||||
|
||||
#if defined(__386__) || defined(M_I86)
|
||||
void TestOverlapF( void )
|
||||
{
|
||||
char bufA[80], bufB[80];
|
||||
|
||||
strcpy( bufA, " Hello, world!" ); /* initialize string */
|
||||
|
||||
_fmemmove( bufB, bufA, strlen(bufA)+1 ); /* copy string */
|
||||
VERIFY( !strcmp(bufB, bufA) );
|
||||
|
||||
_fmemmove( bufA, bufA+1, strlen(bufA+1) ); /* shift one character over */
|
||||
VERIFY( !strcmp(bufA, "Hello, world!!") );
|
||||
|
||||
_fmemmove( bufA+1, bufA, strlen(bufA+1) );
|
||||
VERIFY( !strcmp(bufA, "HHello, world!") );
|
||||
}
|
||||
#endif
|
||||
|
||||
|
||||
|
||||
/****
|
||||
***** Test memset(), _fmemset(), and swab().
|
||||
****/
|
||||
|
||||
void TestMisc( void )
|
||||
{
|
||||
char bufA[80], bufB[80];
|
||||
void * addr;
|
||||
int count;
|
||||
|
||||
addr = memset( bufA, 0x00, 80 ); /* zero out memory */
|
||||
VERIFY( addr == bufA );
|
||||
|
||||
for( count=0; count<80; count++ ) /* ensure all zero bytes */
|
||||
VERIFY( bufA[count] == 0x00 );
|
||||
|
||||
#if defined(__386__) || defined(M_I86)
|
||||
{
|
||||
void __far * addrFar;
|
||||
addrFar = _fmemset( bufB, 0x00, 80 ); /* zero out memory */
|
||||
VERIFY( addrFar == bufB );
|
||||
|
||||
for( count=0; count<80; count++ ) { /* ensure all zero bytes */
|
||||
VERIFY( bufB[count] == 0x00 );
|
||||
}
|
||||
}
|
||||
#else
|
||||
memset( bufB, 0x00, 80 ); /* zero out memory */
|
||||
#endif
|
||||
|
||||
strcpy( bufA, "eHll,ow rodl" ); /* initialize string */
|
||||
swab( bufA, bufB, strlen(bufA) ); /* swap pairs of characters */
|
||||
VERIFY( !strcmp(bufB, "Hello, world") ); /* ensure swapped ok */
|
||||
}
|
||||
Reference in New Issue
Block a user