[Gnash-commit] gnash/testsuite/misc-ming.all action_execution_...

[Sandro Santilli]

CVSROOT:        /sources/gnash
Module name:    gnash
Changes by:     Sandro Santilli <strk>  07/09/06 09:13:53

Modified files:
        testsuite/misc-ming.all: action_execution_order_test1.c 

Log message:
        Add additional test checking for onLoad to be called only once

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/gnash/testsuite/misc-ming.all/action_execution_order_test1.c?cvsroot=gnash&r1=1.3&r2=1.4

Patches:
Index: action_execution_order_test1.c
===================================================================
RCS file: 
/sources/gnash/gnash/testsuite/misc-ming.all/action_execution_order_test1.c,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- action_execution_order_test1.c      6 Sep 2007 08:58:56 -0000       1.3
+++ action_execution_order_test1.c      6 Sep 2007 09:13:52 -0000       1.4
@@ -82,6 +82,7 @@
   it_red = SWFMovie_add(mo, (SWFBlock)mc_red);  
   SWFDisplayItem_addAction(it_red,
     compileSWFActionCode(
+       "_root.mcRedLoadCalls++;"
        "_root.typeofMcBluFromMcRedLoad = typeof(_root.mc_blu);"
        "_root.typeofMcRedFromMcRedLoad = typeof(_root.mc_red);"
        ), SWFACTION_ONLOAD);
@@ -95,6 +96,7 @@
   it_blu = SWFMovie_add(mo, (SWFBlock)mc_blu);  
   SWFDisplayItem_addAction(it_blu,
     compileSWFActionCode(
+       "_root.mcBluLoadCalls++;"
        "_root.typeofMcRedFromMcBluLoad = typeof(_root.mc_red);"
        "_root.typeofMcBluFromMcBluLoad = typeof(_root.mc_blu);"
        ), SWFACTION_ONLOAD);
@@ -116,6 +118,10 @@
   // onLoad handler for mc_blu DO can see itself 
   check_equals(mo, "_root.typeofMcBluFromMcBluLoad", "'movieclip'");
 
+  // onLoad handlers of mc_red and mc_blu called once
+  check_equals(mo, "_root.mcBluLoadCalls", "1");
+  check_equals(mo, "_root.mcRedLoadCalls", "1");
+
   add_actions(mo, " _root.totals(); stop(); ");
   SWFMovie_nextFrame(mo); /* 3rd frame */