[Gnash-commit] gnash ChangeLog testsuite/simple.exp

[Sandro Santilli]

CVSROOT:        /sources/gnash
Module name:    gnash
Changes by:     Sandro Santilli <strk>  06/11/13 12:14:58

Modified files:
        .              : ChangeLog 
        testsuite      : simple.exp 

Log message:
        * testsuite/simple.exp: fix handling of XPASSED/XFAILED results.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/gnash/ChangeLog?cvsroot=gnash&r1=1.1601&r2=1.1602
http://cvs.savannah.gnu.org/viewcvs/gnash/testsuite/simple.exp?cvsroot=gnash&r1=1.3&r2=1.4

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/gnash/gnash/ChangeLog,v
retrieving revision 1.1601
retrieving revision 1.1602
diff -u -b -r1.1601 -r1.1602
--- ChangeLog   13 Nov 2006 12:00:04 -0000      1.1601
+++ ChangeLog   13 Nov 2006 12:14:57 -0000      1.1602
@@ -1,5 +1,6 @@
 2006-11-13 Sandro Santilli <address@hidden>
 
+       * testsuite/simple.exp: fix handling of XPASSED/XFAILED results.
        * testsuite/misc-ming.all/ming_utils.{c,h}:
          added add_dejagnu_functions() method and fixed
          xtrace() function to *append* rather then replace

Index: testsuite/simple.exp
===================================================================
RCS file: /sources/gnash/gnash/testsuite/simple.exp,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- testsuite/simple.exp        2 Nov 2006 12:00:13 -0000       1.3
+++ testsuite/simple.exp        13 Nov 2006 12:14:57 -0000      1.4
@@ -43,6 +43,20 @@
            set timetol 0
            exp_continue
        }
+       -re "XPASSED:\[^\n]*\n" {
+           regsub "\[\n\t\]*XPASSED: " $expect_out(0,string) "" output
+           set output [string range $output 0 end-2]
+           xpass "${file}: $output"
+           set timetol 0
+           exp_continue
+       }
+       -re "XFAILED:\[^\n\]*\n" {
+           regsub "\[\n\t\]*XFAILED: " $expect_out(0,string) "" output
+           set output [string range $output 0 end-2] 
+           xfail "${file}: $output"
+           set timetol 0
+           exp_continue
+       }
        -re "FAILED:\[^\n\]*\n" {
            regsub "\[\n\t\]*FAILED: " $expect_out(0,string) "" output
            set output [string range $output 0 end-2]