[Gnash-commit] gnash ChangeLog testsuite/misc-swfc.all/swf4opc...

[Sandro Santilli]

CVSROOT:        /sources/gnash
Module name:    gnash
Changes by:     Sandro Santilli <strk>  08/04/02 08:34:34

Modified files:
        .              : ChangeLog 
        testsuite/misc-swfc.all: swf4opcode.sc 

Log message:
        make swf4 dejagnu interface behave as the usual one (more info).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/gnash/ChangeLog?cvsroot=gnash&r1=1.6156&r2=1.6157
http://cvs.savannah.gnu.org/viewcvs/gnash/testsuite/misc-swfc.all/swf4opcode.sc?cvsroot=gnash&r1=1.11&r2=1.12

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/gnash/gnash/ChangeLog,v
retrieving revision 1.6156
retrieving revision 1.6157
diff -u -b -r1.6156 -r1.6157
--- ChangeLog   2 Apr 2008 08:21:48 -0000       1.6156
+++ ChangeLog   2 Apr 2008 08:34:33 -0000       1.6157
@@ -1,5 +1,10 @@
 2008-04-01 Sandro Santilli <address@hidden>
 
+       * testsuite/misc-swfc.all/swf4opcode.sc: make swf4 dejagnu interface
+         behave as the usual one (more info).
+
+2008-04-01 Sandro Santilli <address@hidden>
+
        * server/as_value.cpp (to_bool_v5, to_bool_v6): "true" and "false"
          have no special meaning !
        * testsuite/actionscript.all/ops.as: pass !"true" is false in swf<7.

Index: testsuite/misc-swfc.all/swf4opcode.sc
===================================================================
RCS file: /sources/gnash/gnash/testsuite/misc-swfc.all/swf4opcode.sc,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -b -r1.11 -r1.12
--- testsuite/misc-swfc.all/swf4opcode.sc       2 Apr 2008 08:21:49 -0000       
1.11
+++ testsuite/misc-swfc.all/swf4opcode.sc       2 Apr 2008 08:34:34 -0000       
1.12
@@ -31,32 +31,39 @@
 // Dejagnu clip does not work/compile in swf4.
 //
 
+//-------------------------------------------------------------------------------------------
+// Dejagnu-like interface for SWF4
+// TODO: expose in check.as based on OUTPUT_VERSION ?
+//-------------------------------------------------------------------------------------------
+
 #define _INFO_ concat(' [', concat(__FILE__, concat(':', 
concat(__LINE__,']'))))
 
-#define pass_check() { trace(concat("PASSED: ", _INFO_)); }
-#define xpass_check() { trace(concat("XPASSED: ", _INFO_)); }
-#define fail_check() { trace(concat("FAILED: ", _INFO_)); }
-#define xfail_check(){ trace(concat("XFAILED: ", _INFO_)); }
+#define pass_check(lbl) { trace(concat("PASSED: ", concat(lbl, _INFO_))); }
+#define xpass_check(lbl) { trace(concat("XPASSED: ", concat(lbl, _INFO_))); }
+#define fail_check(lbl) { trace(concat("FAILED: ", concat(lbl, _INFO_))); }
+#define xfail_check(lbl) { trace(concat("XFAILED: ", concat(lbl, _INFO_))); }
 
 
 //
 // Use check_equals(<obtained>, <expected>)
 //
 #define check_equals(obt, exp)  \
-    if ( obt == exp ) pass_check() \
-    else fail_check()
+    if ( obt == exp ) pass_check( concat(#obt, concat(" == ", #exp)) ) \
+    else fail_check( concat("expected: ", concat(#exp, concat(" obtained: ", 
obt))) )
     
 #define xcheck_equals(obt, exp)  \
-        if ( obt == exp ) xpass_check() \
-        else xfail_check()
+    if ( obt == exp ) xpass_check( concat(#obt, concat(" == ", #exp)) ) \
+    else xfail_check( concat("expected: ", concat(#exp, concat(" obtained: ", 
obt))) )
         
 #define check(expr)  \
-    if ( expr ) pass_check() \
-    else fail_check()
+    if ( expr ) pass_check(#expr) \
+    else fail_check(#expr)
 
 #define xcheck(expr)  \
-        if ( expr ) xpass_check() \
-        else xfail_check() 
+        if ( expr ) xpass_check(#expr) \
+        else xfail_check(#expr) 
+
+//-------------------------------------------------------------------------------------------
     
 .flash  bbox=800x600 filename="swf4opcode.swf" background=white version=4 
fps=12