Changeset 3127 for trunk/psLib/test/runTest
- Timestamp:
- Feb 4, 2005, 12:49:39 PM (21 years ago)
- Location:
- trunk/psLib
- Files:
-
- 2 edited
-
. (modified) (1 prop)
-
test/runTest (modified) (11 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/psLib
- Property svn:ignore
-
old new 1 DoxygenLog 1 2 bin 2 3 lib
-
- Property svn:ignore
-
trunk/psLib/test/runTest
r3115 r3127 28 28 # 29 29 # $Revison: $ $Name: not supported by cvs2svn $ 30 # $Date: 2005-02-0 3 00:54:12$30 # $Date: 2005-02-04 22:49:37 $ 31 31 # 32 32 # Copyright 2004 Maui High Performance Computering Center, University of Hawaii … … 36 36 # Provides functions for handling psS64 command line options 37 37 use Getopt::Long; 38 39 $verifiedDir = "verified"; 38 40 39 41 # Assign variables based on the presence of command line options to the script … … 42 44 "resetStderr!" => \$resetStderr, 43 45 "resetStdout!" => \$resetStdout, 46 "verified=s" => \$verifiedDir, 44 47 "help!" => \$help 45 48 ); … … 83 86 84 87 # Check if a verified directory exists in the current work directory 85 if ( !( -e "verified") ) {88 if ( !( -e $verifiedDir ) ) { 86 89 87 90 # Display message that verified subdirectory doesn't exist … … 133 136 # Open mod file to place filtered STDOUT 134 137 open( MODFILE, "> temp/$testFile.stdout.mod" ); 135 open( MODFILE2, "> verified/$testFile.stdout" ) if $resetStdout;138 open( MODFILE2, "> $verifiedDir/$testFile.stdout" ) if $resetStdout; 136 139 137 140 # Replace the variable date, time and host information with constants … … 143 146 s/$hostname\s*/<HOST>/g; 144 147 s/: Line \d+/: Line <LINENO>/g; 145 s/\ :\d+/\:<LINENO>/g;148 s/\(.*\:\d+\)/\(FILE\:LINENO\)/g; 146 149 s/allocate \d+ bytes at/allocate <N> bytes at/g; 147 150 … … 166 169 # Open mod file to place filtered STDERR 167 170 open( MODFILE, "> temp/$testFile.stderr.mod" ); 168 open( MODFILE2, "> verified/$testFile.stderr" ) if $resetStderr;171 open( MODFILE2, "> $verifiedDir/$testFile.stderr" ) if $resetStderr; 169 172 170 173 # Replace the variable date, time and host information with constants … … 174 177 s/$hostname\s*/<HOST>/g; 175 178 s/: Line \d+/: Line <LINENO>/g; 176 s/\ :\d+/\:<LINENO>/g;179 s/\(.*\:\d+\)/\(FILE\:LINENO\)/g; 177 180 s/allocate \d+ bytes at/allocate <N> bytes at/g; 178 181 … … 193 196 194 197 # Compare STDOUT capture with verified file 195 $exitValue |= &compareStream(" verified/$testFile.stdout");198 $exitValue |= &compareStream("$verifiedDir/$testFile.stdout"); 196 199 197 200 # Check exit value to determine if verified file doesn't exist … … 204 207 205 208 # Compare STDERR capture with verified file 206 $exitValue |= &compareStream(" verified/$testFile.stderr");209 $exitValue |= &compareStream("$verifiedDir/$testFile.stderr"); 207 210 208 211 # Check exit value to determine if verified file doesn't exist … … 330 333 # Create name of the temp file to compare 331 334 $tempFile = $streamFile; 332 $tempFile =~ s/ verified/temp/;335 $tempFile =~ s/$verifiedDir/temp/; 333 336 $tempFile = $tempFile . ".mod"; 334 337
Note:
See TracChangeset
for help on using the changeset viewer.
