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

[Zou Lunkai]

CVSROOT:        /sources/gnash
Module name:    gnash
Changes by:     Zou Lunkai <zoulunkai>  07/09/29 03:27:57

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

Log message:
        * testsuite/actionscript.all/with.as: more tests for setTarget and found
          the Dejagnu clip functions might be out of scope chain, and explicitly
          targeting also not work.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/gnash/ChangeLog?cvsroot=gnash&r1=1.4468&r2=1.4469
http://cvs.savannah.gnu.org/viewcvs/gnash/testsuite/actionscript.all/with.as?cvsroot=gnash&r1=1.14&r2=1.15

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/gnash/gnash/ChangeLog,v
retrieving revision 1.4468
retrieving revision 1.4469
diff -u -b -r1.4468 -r1.4469
--- ChangeLog   28 Sep 2007 16:12:26 -0000      1.4468
+++ ChangeLog   29 Sep 2007 03:27:56 -0000      1.4469
@@ -1,3 +1,9 @@
+2007-09-29 Zou Lunkai <address@hidden>
+       
+       * testsuite/actionscript.all/with.as: more tests for setTarget and found
+         the Dejagnu clip functions might be out of scope chain, and explicitly
+         targeting also not work.
+         
 2007-09-28 Sandro Santilli <address@hidden>
 
        * libbase/rc.cpp: use fprintf rather then log_XXX during parsing.

Index: testsuite/actionscript.all/with.as
===================================================================
RCS file: /sources/gnash/gnash/testsuite/actionscript.all/with.as,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -b -r1.14 -r1.15
--- testsuite/actionscript.all/with.as  27 Sep 2007 09:09:43 -0000      1.14
+++ testsuite/actionscript.all/with.as  29 Sep 2007 03:27:57 -0000      1.15
@@ -21,7 +21,7 @@
 // compile this test case with Ming makeswf, and then
 // execute it like this gnash -1 -r 0 -v out.swf
 
-rcsid="$Id: with.as,v 1.14 2007/09/27 09:09:43 zoulunkai Exp $";
+rcsid="$Id: with.as,v 1.15 2007/09/29 03:27:57 zoulunkai Exp $";
 
 #include "check.as"
 
@@ -226,14 +226,84 @@
 
 
 //
-// tests of setTarget
+// test ActionSetTarget and ActionSetTarget2 
 //
-tellTarget("mc1");
-// setTarget and With won't change this context.
-// but the deduction might be incorrect!!!
-check_equals(this, _root);
-tellTarget("");
-// Ming thinks tellTarget is a Function, but it is not.
-// So all related tests are probably bogus.
-check_equals(typeof(tellTarget), 'undefined');
-check_equals(this, _root);
+#if OUTPUT_VERSION > 5
+
+// create _root.clip1.clip2 
+_root.createEmptyMovieClip("clip1", 101);
+clip1.createEmptyMovieClip("clip2", 102);  
+check_equals(typeof(clip1.clip2),'movieclip');
+
+clip1.testvar = 'clip1_var'; 
+clip1.clip2.testvar = 'clip2_var';  
+testvar = '_root_timeline_var'; 
+_global.testvar = 'global_var';
+
+testvar2 = '_root_timeline_var'; 
+_global.testvar2  = 'global_var';
+
+testvar3 = '_root_timeline_var';
+
+
+// Quick Dejagnu hack for setTarget
+// After setTarget, those function are hidden.
+// Calling _root.check is also not appropriate at the moment.
+// TODO: find a better way to fix Dejagnu
+_global.pass_check = pass_check;
+_global.fail_check = fail_check;
+_global.xpass_check = xpass_check;
+_global.xfail_check = xfail_check;
+
+setTarget('/clip1'); //tag 0x8B 
+    xcheck_equals(this, _level0);
+    check_equals(testvar, 'clip1_var');     
+    // won't search timeline properties, different with ActionWith     
+    check_equals(testvar2, 'global_var');
+    check_equals(testvar3, undefined);  
+setTarget("");
+
+setTarget('/clip1/clip2'); //tag 0x8B 
+    xcheck_equals(this, _level0);
+    check_equals(testvar, 'clip2_var');     
+    check_equals(testvar2, 'global_var');  
+setTarget("");
+
+// first understand getproperty 
+asm{   
+    push  'checkpoint'   
+    push  ''   
+    push  11 //_target   
+    getproperty  
+    setvariable        
+};  
+check_equals(checkpoint, '/');
+
+// then see how _target is affected. 
+setTarget("/clip1"); 
+  asm{
+    push 'checkpoint'         
+    push ''         
+    push 11 //_target        
+    getproperty  
+    setvariable             
+  };      
+  check_equals(checkpoint, '/clip1'); 
+setTarget("");
+
+setTarget("/clip1/clip2");  
+  asm{
+    push 'checkpoint'         
+    push ''
+    push 11         
+    getproperty  //_target         
+    setvariable             
+  };
+  check_equals(checkpoint, '/clip1/clip2'); 
+setTarget("");
+
+// 
+// TODO: add tests for setTargetExpression 
+//
+#endif  //OUTPUT_VERSION > 5
+