Changeset 1545 for trunk/psLib/test/runTest
- Timestamp:
- Aug 13, 2004, 4:27:02 PM (22 years ago)
- File:
-
- 1 edited
-
trunk/psLib/test/runTest (modified) (9 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/psLib/test/runTest
r1490 r1545 30 30 # 31 31 # $Revison: $ $Name: not supported by cvs2svn $ 32 # $Date: 2004-08-1 1 23:42:49$32 # $Date: 2004-08-14 02:27:02 $ 33 33 # 34 34 # Copyright 2004 Maui High Performance Computering Center, University of Hawaii … … 48 48 49 49 if ($help) { 50 print "Usage: runTest [--reset] [--resetStderr] [--resetStdout] testfile(s)\n\n"; 50 print 51 "Usage: runTest [--reset] [--resetStderr] [--resetStdout] testfile(s)\n\n"; 51 52 exit(0); 52 53 } … … 124 125 # Display failure message with return value to user 125 126 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 ); 127 130 } 128 131 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 ); 130 135 } 131 136 $exitValue |= 256; … … 144 149 open( MODFILE2, "> verified/$testFile.stdout" ) if $resetStdout; 145 150 146 # Replace the variable date, time and host information with constants151 # Replace the variable date, time and host information with constants 147 152 $hostname = `hostname`; 148 153 chop $hostname; … … 153 158 s/: Line \d+/: Line <LINENO>/g; 154 159 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 158 164 if ( !m/\*\*\*\smalloc/ ) { 159 165 print MODFILE ($_); … … 176 182 open( MODFILE2, "> verified/$testFile.stderr" ) if $resetStderr; 177 183 178 # Replace the variable date, time and host information with constants184 # Replace the variable date, time and host information with constants 179 185 while (<OUTFILE>) { 180 186 s/\s+\d+:\d+:\d+\w/<TIME>/g; … … 183 189 s/: Line \d+/: Line <LINENO>/g; 184 190 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 188 195 if ( !m/\*\*\*\smalloc/ ) { 189 196 print MODFILE ($_); … … 226 233 # Since test driver doesn't exist or is not executable then display 227 234 # 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 ); 229 238 230 239 # Exit value set to indicate test driver doesn't exist or not executable … … 279 288 { 280 289 if ( $fileName =~ m/out/ ) { 281 print(" Failed - File $fileName contains error strings.\n"); 290 print( 291 " Failed - File $fileName contains error strings.\n" 292 ); 282 293 $returnVal = 64; 283 294 } 284 295 elsif ( $fileName =~ m/err/ ) { 285 print(" Failed - File $fileName contains error strings.\n"); 296 print( 297 " Failed - File $fileName contains error strings.\n" 298 ); 286 299 $returnVal = 128; 287 300 }
Note:
See TracChangeset
for help on using the changeset viewer.
