IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Ignore:
Timestamp:
Aug 13, 2004, 4:27:02 PM (22 years ago)
Author:
desonia
Message:

fixed the problem of SIZE_MAX being system dependent by filtering it
out during the verification.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/psLib/test/runTest

    r1490 r1545  
    3030#
    3131#  $Revison:  $  $Name: not supported by cvs2svn $
    32 #  $Date: 2004-08-11 23:42:49 $
     32#  $Date: 2004-08-14 02:27:02 $
    3333#
    3434#  Copyright 2004 Maui High Performance Computering Center, University of Hawaii
     
    4848
    4949if ($help) {
    50     print "Usage: runTest [--reset] [--resetStderr] [--resetStdout] testfile(s)\n\n";
     50    print
     51"Usage: runTest [--reset] [--resetStderr] [--resetStdout] testfile(s)\n\n";
    5152    exit(0);
    5253}
     
    124125            # Display failure message with return value to user
    125126            if ( $? != 0 && ( $testFile !~ /^A/i ) ) {
    126                 print("        Failed - Test Driver expected 0 return value (Return value $?)\n");
     127                print(
     128"        Failed - Test Driver expected 0 return value (Return value $?)\n"
     129                );
    127130            }
    128131            elsif ( $? == 0 && ( $testFile =~ /^A/i ) ) {
    129                 print("        Failed - Test Driver expected abort (Return value $?)\n");
     132                print(
     133"        Failed - Test Driver expected abort (Return value $?)\n"
     134                );
    130135            }
    131136            $exitValue |= 256;
     
    144149            open( MODFILE2, "> verified/$testFile.stdout" ) if $resetStdout;
    145150
    146             # Replace the variable date, time and host information with constants
     151           # Replace the variable date, time and host information with constants
    147152            $hostname = `hostname`;
    148153            chop $hostname;
     
    153158                s/: Line \d+/: Line <LINENO>/g;
    154159                s/\:\d+/\:<LINENO>/g;
    155 
    156                 # Filter lines with malloc.  This is an artifact of memory testing
    157                 # with the Mac testbed
     160                s/allocate \d+ bytes at/allocate <N> bytes at/g;
     161
     162              # Filter lines with malloc.  This is an artifact of memory testing
     163              # with the Mac testbed
    158164                if ( !m/\*\*\*\smalloc/ ) {
    159165                    print MODFILE ($_);
     
    176182            open( MODFILE2, "> verified/$testFile.stderr" ) if $resetStderr;
    177183
    178             # Replace the variable date, time and host information with constants
     184           # Replace the variable date, time and host information with constants
    179185            while (<OUTFILE>) {
    180186                s/\s+\d+:\d+:\d+\w/<TIME>/g;
     
    183189                s/: Line \d+/: Line <LINENO>/g;
    184190                s/\:\d+/\:<LINENO>/g;
    185 
    186                 # Filter lines with malloc.  This is an artifact of memory testing
    187                 # with the Mac testbed
     191                s/allocate \d+ bytes at/allocate <N> bytes at/g;
     192
     193              # Filter lines with malloc.  This is an artifact of memory testing
     194              # with the Mac testbed
    188195                if ( !m/\*\*\*\smalloc/ ) {
    189196                    print MODFILE ($_);
     
    226233        # Since test driver doesn't exist or is not executable then display
    227234        # message to user.
    228         print("        Need to specify an executable test file within directory.\n");
     235        print(
     236"        Need to specify an executable test file within directory.\n"
     237        );
    229238
    230239        # Exit value set to indicate test driver doesn't exist or not executable
     
    279288        {
    280289            if ( $fileName =~ m/out/ ) {
    281                 print("        Failed - File $fileName contains error strings.\n");
     290                print(
     291                    "        Failed - File $fileName contains error strings.\n"
     292                );
    282293                $returnVal = 64;
    283294            }
    284295            elsif ( $fileName =~ m/err/ ) {
    285                 print("        Failed - File $fileName contains error strings.\n");
     296                print(
     297                    "        Failed - File $fileName contains error strings.\n"
     298                );
    286299                $returnVal = 128;
    287300            }
Note: See TracChangeset for help on using the changeset viewer.