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

[Sandro Santilli]

CVSROOT:        /sources/gnash
Module name:    gnash
Changes by:     Sandro Santilli <strk>  07/11/22 14:29:38

Modified files:
        .              : ChangeLog 
        testsuite/actionscript.all: getvariable.as targetPath.as 

Log message:
        A couple of additional tests for simple variable paths with slashes and 
no columns.
        (we fail much more then we should)

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/gnash/ChangeLog?cvsroot=gnash&r1=1.4918&r2=1.4919
http://cvs.savannah.gnu.org/viewcvs/gnash/testsuite/actionscript.all/getvariable.as?cvsroot=gnash&r1=1.16&r2=1.17
http://cvs.savannah.gnu.org/viewcvs/gnash/testsuite/actionscript.all/targetPath.as?cvsroot=gnash&r1=1.8&r2=1.9

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/gnash/gnash/ChangeLog,v
retrieving revision 1.4918
retrieving revision 1.4919
diff -u -b -r1.4918 -r1.4919
--- ChangeLog   22 Nov 2007 13:20:08 -0000      1.4918
+++ ChangeLog   22 Nov 2007 14:29:38 -0000      1.4919
@@ -1,5 +1,11 @@
 2007-11-22 Sandro Santilli <address@hidden>
 
+       * testsuite/actionscript.all/: getvariable.as, targetPath.as:
+         A couple of additional tests for simple variable paths with
+         slashes and no columns.
+
+2007-11-22 Sandro Santilli <address@hidden>
+
        * server/as_object.cpp (get_member_default): don't log
          ActionLimitException here, will be logged by outer catcher.
 

Index: testsuite/actionscript.all/getvariable.as
===================================================================
RCS file: /sources/gnash/gnash/testsuite/actionscript.all/getvariable.as,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -b -r1.16 -r1.17
--- testsuite/actionscript.all/getvariable.as   25 Oct 2007 16:48:07 -0000      
1.16
+++ testsuite/actionscript.all/getvariable.as   22 Nov 2007 14:29:38 -0000      
1.17
@@ -19,7 +19,7 @@
 // compile this test case with Ming makeswf, and then
 // execute it like this gnash -1 -r 0 -v out.swf
 
-rcsid="$Id: getvariable.as,v 1.16 2007/10/25 16:48:07 strk Exp $";
+rcsid="$Id: getvariable.as,v 1.17 2007/11/22 14:29:38 strk Exp $";
 
 #include "check.as"
 
@@ -117,6 +117,39 @@
 check_equals(checkpoint, 5.5);
 #endif
 
+//---------------------------------------------------------------------
+// Check '/mc/mc' access 
+//---------------------------------------------------------------------
+
+var variable_in_root = 6;
+asm {
+        push 'checkpoint'
+       push '/mc/mc'
+       getvariable
+        setvariable
+};
+#if OUTPUT_VERSION > 5
+ xcheck_equals(typeof(checkpoint), 'movieclip');
+ xcheck_equals(checkpoint, _level0.mc.mc);
+#else
+ check_equals(typeof(checkpoint), 'undefined');
+ check_equals(checkpoint, _level0.mc.mc);
+#endif
+
+//---------------------------------------------------------------------
+// Check '/mc/mc/mem' access 
+// (expected to fail, but I'm not sure why)
+//---------------------------------------------------------------------
+
+var variable_in_root = 6;
+asm {
+        push 'checkpoint'
+       push '/mc/mc/mem'
+       getvariable
+        setvariable
+};
+check_equals(typeof(checkpoint), 'undefined');
+
 
 //---------------------------------------------------------------------
 // Check '../:variable_in_root' access 
@@ -506,5 +539,15 @@
 // TODO: try use of 'with' stack
 //-----------------------------------------------------------------------
 
+#if OUTPUT_VERSION < 6
+ xcheck_totals(39); // ???
+#else
+ xcheck_totals(44); // ???
+#endif
+
+#else // ndef MING_SUPPORT_ASM
+
+check_totals(0);
+
 #endif // MING_SUPPORT_ASM
-totals();
+

Index: testsuite/actionscript.all/targetPath.as
===================================================================
RCS file: /sources/gnash/gnash/testsuite/actionscript.all/targetPath.as,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -b -r1.8 -r1.9
--- testsuite/actionscript.all/targetPath.as    13 Nov 2007 20:56:09 -0000      
1.8
+++ testsuite/actionscript.all/targetPath.as    22 Nov 2007 14:29:38 -0000      
1.9
@@ -20,7 +20,7 @@
  *  Test targetPath tags (0x45)
  */
 
-rcsid="$Id: targetPath.as,v 1.8 2007/11/13 20:56:09 strk Exp $";
+rcsid="$Id: targetPath.as,v 1.9 2007/11/22 14:29:38 strk Exp $";
 
 #include "check.as"
 
@@ -104,10 +104,15 @@
 setTarget("/");
 check_equals(_target, '/');
 
+setTarget('/mc/mc');
+check_equals(_target, '/mc/mc');
+setTarget("/");
+check_equals(_target, '/');
+
 #endif
 
 #if OUTPUT_VERSION < 6
- totals(6);
+ check_totals(6);
 #else
- totals(11);
+ check_totals(13);
 #endif