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

[Sandro Santilli]

CVSROOT:        /sources/gnash
Module name:    gnash
Changes by:     Sandro Santilli <strk>  07/03/21 18:46:47

Modified files:
        .              : ChangeLog 
        testsuite/actionscript.all: MovieClip.as 

Log message:
                * testsuite/actionscript.all/MovieClip.as: add test for
                  getproperty call w/out an explicit target.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/gnash/ChangeLog?cvsroot=gnash&r1=1.2665&r2=1.2666
http://cvs.savannah.gnu.org/viewcvs/gnash/testsuite/actionscript.all/MovieClip.as?cvsroot=gnash&r1=1.37&r2=1.38

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/gnash/gnash/ChangeLog,v
retrieving revision 1.2665
retrieving revision 1.2666
diff -u -b -r1.2665 -r1.2666
--- ChangeLog   21 Mar 2007 18:09:24 -0000      1.2665
+++ ChangeLog   21 Mar 2007 18:46:47 -0000      1.2666
@@ -1,5 +1,7 @@
 2007-03-21 Sandro Santilli <address@hidden>
 
+       * testsuite/actionscript.all/MovieClip.as: add test for
+         getproperty call w/out an explicit target.
        * server/impl.cpp (create_library_movie): include SWF version info,
          at least it's now shown with a bare -v.
        * server/vm/ASHandlers.cpp (ActionGetProperty):

Index: testsuite/actionscript.all/MovieClip.as
===================================================================
RCS file: /sources/gnash/gnash/testsuite/actionscript.all/MovieClip.as,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -b -r1.37 -r1.38
--- testsuite/actionscript.all/MovieClip.as     16 Mar 2007 12:11:48 -0000      
1.37
+++ testsuite/actionscript.all/MovieClip.as     21 Mar 2007 18:46:47 -0000      
1.38
@@ -22,7 +22,7 @@
 // compile this test case with Ming makeswf, and then
 // execute it like this gnash -1 -r 0 -v out.swf
 
-rcsid="$Id: MovieClip.as,v 1.37 2007/03/16 12:11:48 strk Exp $";
+rcsid="$Id: MovieClip.as,v 1.38 2007/03/21 18:46:47 strk Exp $";
 
 #include "check.as"
 
@@ -322,3 +322,53 @@
 check_equals(this.$version, 'fake version');
 check(delete $version);
 check_equals(typeof(this.$version), 'undefined');
+
+//------------------------------------------------
+// Test getProperty 
+//------------------------------------------------
+
+#ifdef MING_SUPPORTS_ASM_GETPROPERTY
+
+asm {
+       push "a"
+       push "" // this doesn't resolve to top of with stack
+       push 13 // _name
+       getproperty
+       setvariable
+};
+#if OUTPUT_VERSION > 5
+check_equals(a, "changed");
+#else
+check_equals(a, undefined);
+#endif
+
+asm {
+       push "b"
+       push "" // this doesn't resolve to top of with stack
+       push 11 // _target
+       getproperty
+       setvariable
+};
+check_equals(b, "/");
+
+asm {
+       push "_root"
+       push 13 // _name
+       getproperty
+       setvariable
+};
+#if OUTPUT_VERSION > 5
+check_equals(a, "changed");
+#else
+check_equals(a, undefined);
+#endif
+
+asm {
+       push "_root"
+       push 11 // _target
+       getproperty
+       setvariable
+};
+check_equals(b, "/");
+
+#endif // MING_SUPPORT_ASM_GETPROPERTY