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 <[EMAIL PROTECTED]>
+ * 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 <[EMAIL PROTECTED]>
+
* 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
_______________________________________________
Gnash-commit mailing list
Gnash-commit@gnu.org
http://lists.gnu.org/mailman/listinfo/gnash-commit
