Changeset 2140
- Timestamp:
- 06/29/08 10:26:00 (2 months ago)
- Files:
-
- 1 modified
-
trunk/tsuite/auto/checkall.pl (modified) (8 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/tsuite/auto/checkall.pl
r1997 r2140 29 29 $nOK = 0; 30 30 $nSkip = 0; 31 $nFail = 0; 31 32 $nCrash = 0; 32 33 $nBotch = 0; 34 $nWarn = 0; 33 35 34 36 open( CRASHED, ">crashed.txt" ); … … 53 55 { 54 56 $checkEnd = 0; 57 $nWarnMessage = 0; 55 58 $lgCrash = 0; 59 $lgFailure = 0; 56 60 $lgBotch = 0; 57 61 $lgAtmosNotFound = 0; … … 64 68 { 65 69 print SERIOUS "$output: $_"; 70 if( /W-/ ) 71 { 72 ++$nWarnMessage; 73 } 66 74 } 67 75 if( /botch/ ) … … 94 102 $lgCrash = 1; 95 103 } 96 # this is the last line, so lgBotch is already determined. 97 if( /something went wrong\]/ && !$lgBotch ) 98 { 99 $lgCrash = 1; 104 # this is the last line, so lgBotch and nWarnMessage are already determined. 105 if( /something went wrong\]/ && !$lgBotch && $nWarnMessage == 0 ) 106 { 107 $lgFailure = 1; 108 ++$checkEnd; 100 109 } 101 110 if( /Error: stellar atmosphere file not found./ ) … … 115 124 print SERIOUS "$output: crashed\n"; 116 125 $lgSeriousProblems = 1; 126 } 127 elsif( $lgFailure ) 128 { 129 ++$nFail; 130 print SERIOUS "$output: returned with FAILURE status\n"; 131 $lgSeriousProblems = 1; 132 } 133 elsif( $nWarnMessage > 0 ) 134 { 135 ++$nWarn; 117 136 } 118 137 elsif( $lgBotch ) … … 140 159 close( SKIP ); 141 160 142 if( $nMod != $nOK+$nSkip+$nCrash+$n Botch )161 if( $nMod != $nOK+$nSkip+$nCrash+$nFail+$nWarn+$nBotch ) 143 162 { 144 163 print STDERR "\nINTERNAL ERROR: the number of sims don't add up!!!!!\n\n"; … … 149 168 if( -s "serious.txt" ) 150 169 { 151 print "\nWARNING! crashes, botches or warnings were found. This is a serious problem.\n";170 print "\nWARNING! crashes, failures, botches or warnings were found. This is a serious problem.\n"; 152 171 if( $nCrash > 0 ) 153 172 { … … 215 234 printf( ", %i crashed", $nCrash ); 216 235 } 236 if( $nFail > 0 ) 237 { 238 printf( ", %i failed", $nFail ); 239 } 240 if( $nWarn > 0 ) 241 { 242 printf( ", %i have warnings", $nWarn ); 243 } 217 244 if( $nBotch > 0 ) 218 245 {
