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

[Sandro Santilli]

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

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

Log message:
        add test filename in output.

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

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/gnash/gnash/ChangeLog,v
retrieving revision 1.1035
retrieving revision 1.1036
diff -u -b -r1.1035 -r1.1036
--- ChangeLog   5 Oct 2006 12:42:58 -0000       1.1035
+++ ChangeLog   5 Oct 2006 13:25:27 -0000       1.1036
@@ -1,5 +1,10 @@
 2006-10-05 Sandro Santilli  <address@hidden>
 
+       * testsuite/actionscript.all/swf_exists.exp: add test filename
+         in output.
+
+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)

Index: testsuite/actionscript.all/swf_exists.exp
===================================================================
RCS file: /sources/gnash/gnash/testsuite/actionscript.all/swf_exists.exp,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -b -r1.5 -r1.6
--- testsuite/actionscript.all/swf_exists.exp   5 Oct 2006 12:42:58 -0000       
1.5
+++ testsuite/actionscript.all/swf_exists.exp   5 Oct 2006 13:25:27 -0000       
1.6
@@ -32,6 +32,8 @@
        return "No source file found"
     }
 
+    set testid [ file tail ${file} ]
+
     # spawn the executable and look for the DejaGnu output messages from the
     # test case.
     spawn -noecho -open [open "|./${executable} ${params} out.swf" "r"]
@@ -46,35 +48,35 @@
        -re "NOTE:${text}*" {
            regsub "\[\n\r\t\]*NOTE: $text\r\n" $expect_out(0,string) "" output
            set output [string range $output 6 end]
-           verbose "$output" 2
+           verbose "${testid}: $output" 2
            set timetol 0
            exp_continue
        }
        -re "PASSED:${text}*" {
            regsub "\[\n\r\t\]*PASSED: $text\r\n" $expect_out(0,string) "" 
output
            set output [string range $output 8 end]
-           pass "$output"
+           pass "${testid}: $output"
            set timetol 0
            exp_continue
        }
        -re "FAILED:${text}*" {
            regsub "\[\n\r\t\]*FAILED: $text\r\n" $expect_out(0,string) "" 
output
            set output [string range $output 8 end]
-           fail "$output"
+           fail "${testid}: $output"
            set timetol 0
            exp_continue
        }
        -re "UNTESTED:${text}*" {
            regsub "\[\n\r\t\]*TESTED: $text\r\n" $expect_out(0,string) "" 
output
            set output [string range $output 8 end]
-           untested "$output"
+           untested "${testid}: $output"
            set timetol 0
            exp_continue
        }
        -re "UNRESOLVED:${text}*" {
            regsub "\[\n\r\t\]*UNRESOLVED: $text\r\n" $expect_out(0,string) "" 
output
            set output [string range $output 8 end]
-           unresolved "$output"
+           unresolved "${testid}: $output"
            set timetol 0
            exp_continue
        }