[Gnash-commit] gnash ChangeLog testsuite/actionscript.all/swf_...

[Sandro Santilli]

CVSROOT:        /sources/gnash
Module name:    gnash
Changes by:     Sandro Santilli <strk>  06/10/20 14:10:26

Modified files:
        .              : ChangeLog 
        testsuite/actionscript.all: swf_exists.exp 

Log message:
        swf_exists.exp: strip PASSED/FAILED from test output labels.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/gnash/ChangeLog?cvsroot=gnash&r1=1.1323&r2=1.1324
http://cvs.savannah.gnu.org/viewcvs/gnash/testsuite/actionscript.all/swf_exists.exp?cvsroot=gnash&r1=1.15&r2=1.16

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/gnash/gnash/ChangeLog,v
retrieving revision 1.1323
retrieving revision 1.1324
diff -u -b -r1.1323 -r1.1324
--- ChangeLog   20 Oct 2006 13:08:15 -0000      1.1323
+++ ChangeLog   20 Oct 2006 14:10:25 -0000      1.1324
@@ -1,5 +1,10 @@
 2006-10-20 Sandro Santilli <address@hidden>
 
+       * testsuite/actionscript.all/swf_exists.exp: strip PASSED/FAILED
+         from test output labels.
+
+2006-10-20 Sandro Santilli <address@hidden>
+
        * testsuite/actionscript.all/swf_exists.exp: catch errors
          in 'makeswf' call.
        * testsuite/actionscript.all/swf_exists.exp: made it work

Index: testsuite/actionscript.all/swf_exists.exp
===================================================================
RCS file: /sources/gnash/gnash/testsuite/actionscript.all/swf_exists.exp,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -b -r1.15 -r1.16
--- testsuite/actionscript.all/swf_exists.exp   20 Oct 2006 13:18:41 -0000      
1.15
+++ testsuite/actionscript.all/swf_exists.exp   20 Oct 2006 14:10:25 -0000      
1.16
@@ -75,20 +75,24 @@
 
                #print "Parsing line: $line"
 
-               if {[regexp " XFAILED: .*" $line state]} {
-                   xfail "$testid: $state"
+               if {[regexp " XFAILED: .*" $line]} {
+                       regsub "\[^ \]* PASSED: " $line "" label
+                       xfail "$testid: $label"
                }
 
-               if {[regexp " FAILED: .*" $line state]} {
-                   fail "$testid: $state"
+               if {[regexp " FAILED: .*" $line]} {
+                       regsub "\[^ \]* FAILED: " $line "" label
+                       fail "$testid: $label"
                }
 
-               if {[regexp " XPASSED: .*" $line state]} {
-                   xpass "$testid: $state"
+               if {[regexp " XPASSED: .*" $line]} {
+                       regsub "\[^ \]* XPASSED: " $line "" label
+                       xpass "$testid: $label"
                }
 
-               if {[regexp " PASSED: .*" $line state]} {
-                   pass "$testid: $state"
+               if {[regexp " PASSED: .*" $line]} {
+                       regsub "\[^ \]* PASSED: " $line "" label
+                       pass "$testid: $label"
                }
                
        }