[Gnash-commit] gnash/testsuite/actionscript.all swf_exists.exp

[Sandro Santilli]

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

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

Log message:
        reworked regexp to avoid matching multilines

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/gnash/testsuite/actionscript.all/swf_exists.exp?cvsroot=gnash&r1=1.7&r2=1.8

Patches:
Index: swf_exists.exp
===================================================================
RCS file: /sources/gnash/gnash/testsuite/actionscript.all/swf_exists.exp,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -b -r1.7 -r1.8
--- swf_exists.exp      5 Oct 2006 13:42:33 -0000       1.7
+++ swf_exists.exp      5 Oct 2006 13:47:49 -0000       1.8
@@ -45,35 +45,35 @@
            set timetol 0
            exp_continue
        }
-       -re "NOTE:.*" {
+       -re "NOTE:\[^\r\n]*\r\n" {
            regsub "\[\n\r\t\]*NOTE: " $expect_out(0,string) "" output
            set output [string range $output 6 end-2]
            verbose "${testid}: $output" 2
            set timetol 0
            exp_continue
        }
-       -re "PASSED:.*" {
+       -re "PASSED:\[^\r\n]*\r\n" {
            regsub "\[\n\r\t\]*PASSED: " $expect_out(0,string) "" output
            set output [string range $output 0 end-2]
            pass "${testid}: $output"
            set timetol 0
            exp_continue
        }
-       -re "FAILED:.*" {
+       -re "FAILED:\[^\r\n\]*\r\n" {
            regsub "\[\n\r\t\]*FAILED: " $expect_out(0,string) "" output
            set output [string range $output 0 end-2] 
            fail "${testid}: $output"
            set timetol 0
            exp_continue
        }
-       -re "UNTESTED:.*" {
+       -re "UNTESTED:\[^\r\n]*\r\n" {
            regsub "\[\n\r\t\]*TESTED: " $expect_out(0,string) "" output
            set output [string range $output 8 end-2]
            untested "${testid}: $output"
            set timetol 0
            exp_continue
        }
-       -re "UNRESOLVED:.*" {
+       -re "UNRESOLVED:\[^\r\n]*\r\n" {
            regsub "\[\n\r\t\]*UNRESOLVED: " $expect_out(0,string) "" output
            set output [string range $output 8 end-2]
            unresolved "${testid}: $output"