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

[Sandro Santilli]

CVSROOT:        /sources/gnash
Module name:    gnash
Changes by:     Sandro Santilli <strk>  07/02/28 23:05:59

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

Log message:
        Test access to obj:variable (with obj not being a character)

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

Patches:
Index: getvariable.as
===================================================================
RCS file: /sources/gnash/gnash/testsuite/actionscript.all/getvariable.as,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -b -r1.6 -r1.7
--- getvariable.as      6 Feb 2007 11:00:36 -0000       1.6
+++ getvariable.as      28 Feb 2007 23:05:58 -0000      1.7
@@ -1,5 +1,5 @@
 // 
-//   Copyright (C) 2005, 2006 Free Software Foundation, Inc.
+//   Copyright (C) 2005, 2006, 2007 Free Software Foundation, Inc.
 //
 // This program is free software; you can redistribute it and/or modify
 // it under the terms of the GNU General Public License as published by
@@ -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.6 2007/02/06 11:00:36 strk Exp $";
+rcsid="$Id: getvariable.as,v 1.7 2007/02/28 23:05:58 strk Exp $";
 
 #include "check.as"
 
@@ -128,6 +128,26 @@
 check_equals(checkpoint, undefined);
 
 //---------------------------------------------------------------------
+// Check 'obj:variable_in_object' access 
+//---------------------------------------------------------------------
+
+var obj = { variable_in_object: 'yes' };
+check_equals(obj.variable_in_object, 'yes');
+asm {
+        push 'checkpoint'
+       push 'obj:variable_in_object'
+       getvariable
+        setvariable
+};
+check_equals(checkpoint, 'yes');
+asm {
+       push 'obj:variable_in_object'
+        push 'yes2'
+        setvariable
+};
+check_equals(obj.variable_in_object, 'yes2');
+
+//---------------------------------------------------------------------
 // Check '../invalidname' access 
 // (expected to fail)
 //---------------------------------------------------------------------