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

[Sandro Santilli]

CVSROOT:        /sources/gnash
Module name:    gnash
Changes by:     Sandro Santilli <strk>  06/10/30 09:05:27

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

Log message:
                * testsuite/actionscript.all/swf_exists.exp: added more 
debugging
                  lines on -v -v : dunno why but seems broken again on my debian
                  stable :-(

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

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/gnash/gnash/ChangeLog,v
retrieving revision 1.1438
retrieving revision 1.1439
diff -u -b -r1.1438 -r1.1439
--- ChangeLog   30 Oct 2006 08:16:18 -0000      1.1438
+++ ChangeLog   30 Oct 2006 09:05:27 -0000      1.1439
@@ -1,5 +1,8 @@
 2006-10-30 Sandro Santilli <address@hidden>
 
+       * testsuite/actionscript.all/swf_exists.exp: added more debugging
+         lines on -v -v : dunno why but seems broken again on my debian
+         stable :-( 
        * server/PropertyList.h: added <cctype> include for toupper.
 
 2006-10-29 Markus Gothe <address@hidden>

Index: testsuite/actionscript.all/swf_exists.exp
===================================================================
RCS file: /sources/gnash/gnash/testsuite/actionscript.all/swf_exists.exp,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -b -r1.16 -r1.17
--- testsuite/actionscript.all/swf_exists.exp   20 Oct 2006 14:10:25 -0000      
1.16
+++ testsuite/actionscript.all/swf_exists.exp   30 Oct 2006 09:05:27 -0000      
1.17
@@ -55,7 +55,7 @@
 
        if {[catch {exec -keepnewline -- ./${executable} -v out.swf} out] } {
                fail "$testid: gprocessor exited with non-zero code"
-               #verbose "($out)"
+               verbose "($out)" 
                continue
        } else {
                set outp $out
@@ -63,17 +63,19 @@
 
        #set outp [exec -keepnewline -- ./${executable} -v out.swf]
 
+       verbose "Output (before regsub): $outp" 2
+
        # remove the \r part of "\r\n" so we don't break all the patterns
        # we want to match.
        regsub -all -- "\r" $outp "" outp
 
-       #print "After regsub: $outp"
+       verbose "After regsub: $outp" 2
 
        set lines [split $outp \n]
 
        foreach line $lines {
 
-               #print "Parsing line: $line"
+               verbose "Parsing line: $line" 2
 
                if {[regexp " XFAILED: .*" $line]} {
                        regsub "\[^ \]* PASSED: " $line "" label