Changeset 1131

Timestamp:

Jun 29, 2004, 1:52:32 PM (22 years ago)

Author:

desonia

Message:

fixed the check for 'bad words'; regular expression had | when we meant \|

File:

• trunk/psLib/test/FullUnitTest (modified) (2 diffs)

trunk/psLib/test/FullUnitTest

@@ -19 +19 @@
 #  RETURN : integer number of tests which failed
 #
-#  $Revision: 1.8 $  $Name: not supported by cvs2svn $
-#  $Date: 2004-06-23 23:00:15 $
+#  $Revision: 1.9 $  $Name: not supported by cvs2svn $
+#  $Date: 2004-06-29 23:52:32 $
 #
 #  Copyright 2004 Maui High Performance Computing Center, University of Hawaii
@@ -387 +387 @@
     while ( <CAPT_FILE> ) {
         if ( m/FAIL/i || m/FAULT/i || m/ERROR/i || m/Not Found/i
-                      || m/SIGNAL/i || m/NO SUCH FILE/i || m/|E|/i
-                      || m/|A|/i ) {
+                      || m/SIGNAL/i || m/NO SUCH FILE/i || m/\|E\|/i
+                      || m/\|A\|/i ) {
+            print;
             if ( $fileName =~ m/out/ ) {
                 print("        Failed - File $fileName contains error strings.\n");