[Gnash-commit] gnash/testsuite/actionscript.all getvariable.as

[Sandro Santilli]

CVSROOT:        /sources/gnash
Module name:    gnash
Changes by:     Sandro Santilli <strk>  07/01/14 17:39:07

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

Log message:
        Added one more test with higher nesting depth.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/gnash/testsuite/actionscript.all/getvariable.as?cvsroot=gnash&r1=1.3&r2=1.4

Patches:
Index: getvariable.as
===================================================================
RCS file: /sources/gnash/gnash/testsuite/actionscript.all/getvariable.as,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- getvariable.as      11 Jan 2007 23:17:48 -0000      1.3
+++ getvariable.as      14 Jan 2007 17:39:06 -0000      1.4
@@ -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.3 2007/01/11 23:17:48 strk Exp $";
+rcsid="$Id: getvariable.as,v 1.4 2007/01/14 17:39:06 strk Exp $";
 
 #include "check.as"
 
@@ -82,6 +82,20 @@
 };
 xcheck_equals(objmemb, 3);
 
+//---------------------------------------------------------------------
+// Check 'obj1.obj2.member' access 
+//---------------------------------------------------------------------
+
+var o2 = { memb:4 };
+var o = { obj2:o2 };
+asm {
+        push 'checkpoint'
+       push 'o.obj2.memb'
+       getvariable
+        setvariable
+};
+xcheck_equals(checkpoint, 4);
+
 //-----------------------------------------------------------------------
 // Check 'obj/:member' access 
 //-----------------------------------------------------------------------