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

[Sandro Santilli]

CVSROOT:        /sources/gnash
Module name:    gnash
Changes by:     Sandro Santilli <strk>  06/10/05 12:42:58

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

Log message:
        made compatibile with expect/tcl found in debian stable.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/gnash/ChangeLog?cvsroot=gnash&r1=1.1034&r2=1.1035
http://cvs.savannah.gnu.org/viewcvs/gnash/testsuite/actionscript.all/swf_exists.exp?cvsroot=gnash&r1=1.4&r2=1.5

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/gnash/gnash/ChangeLog,v
retrieving revision 1.1034
retrieving revision 1.1035
diff -u -b -r1.1034 -r1.1035
--- ChangeLog   5 Oct 2006 10:10:39 -0000       1.1034
+++ ChangeLog   5 Oct 2006 12:42:58 -0000       1.1035
@@ -1,5 +1,7 @@
 2006-10-05 Sandro Santilli  <address@hidden>
 
+       * testsuite/actionscript.all/swf_exists.exp: make compatible
+         with expect/tcl found in debian stable.
        * gui/gnash.cpp: fixed typo in usage string (-k for height)
 
 2006-10-04 Sandro Santilli  <address@hidden>

Index: testsuite/actionscript.all/swf_exists.exp
===================================================================
RCS file: /sources/gnash/gnash/testsuite/actionscript.all/swf_exists.exp,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -b -r1.4 -r1.5
--- testsuite/actionscript.all/swf_exists.exp   3 Oct 2006 14:12:23 -0000       
1.4
+++ testsuite/actionscript.all/swf_exists.exp   5 Oct 2006 12:42:58 -0000       
1.5
@@ -34,8 +34,8 @@
 
     # spawn the executable and look for the DejaGnu output messages from the
     # test case.
-    # spawn -noecho -open [open "|./${executable}" "r"]
-    spawn ${executable} ${params} out.swf
+    spawn -noecho -open [open "|./${executable} ${params} out.swf" "r"]
+    # spawn ${executable} ${params} out.swf
     expect {
        -re "\[0-9\]\[0-9\]:..:..:${text}\r\n" {
            regsub "\[\n\r\t\]*NOTE: $text\r\n" $expect_out(0,string) "" output