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

[Zou Lunkai]

CVSROOT:        /sources/gnash
Module name:    gnash
Changes by:     Zou Lunkai <zoulunkai>  07/07/10 02:52:42

Modified files:
        .              : ChangeLog 
Added files:
        testsuite/misc-ming.all: key_event_test5.c 

Log message:
        new testcase for key listeners, would cause a segfault when any key 
pressed, so not enabled.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/gnash/ChangeLog?cvsroot=gnash&r1=1.3693&r2=1.3694
http://cvs.savannah.gnu.org/viewcvs/gnash/testsuite/misc-ming.all/key_event_test5.c?cvsroot=gnash&rev=1.1

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/gnash/gnash/ChangeLog,v
retrieving revision 1.3693
retrieving revision 1.3694
diff -u -b -r1.3693 -r1.3694
--- ChangeLog   9 Jul 2007 14:32:22 -0000       1.3693
+++ ChangeLog   10 Jul 2007 02:52:42 -0000      1.3694
@@ -1,3 +1,8 @@
+2007-07-10 Zou Lunkai <address@hidden>
+
+       * testsuite/misc-ming.all/key_event_test5.c: new testcase for key 
listeners,
+         would cause a segfault when any key pressed, so not enabled.
+         
 2007-07-09 Sandro Santilli <address@hidden>
 
        * server/swf.h: add defines and links to alexis for SCRIPTLIMITS (SWF8),

Index: testsuite/misc-ming.all/key_event_test5.c
===================================================================
RCS file: testsuite/misc-ming.all/key_event_test5.c
diff -N testsuite/misc-ming.all/key_event_test5.c
--- /dev/null   1 Jan 1970 00:00:00 -0000
+++ testsuite/misc-ming.all/key_event_test5.c   10 Jul 2007 02:52:42 -0000      
1.1
@@ -0,0 +1,95 @@
+/* 
+ *   Copyright (C) 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
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ * 
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+ *
+ */ 
+
+/* 
+ *  zou lunkai address@hidden
+ *
+ */
+
+#include "ming_utils.h"
+
+#include <stdlib.h>
+#include <stdio.h>
+#include <ming.h>
+
+#define OUTPUT_VERSION 6
+#define OUTPUT_FILENAME "key_event_test5.swf"
+
+int
+main(int argc, char** argv)
+{
+  SWFMovie mo;
+  SWFMovieClip dejagnuclip;
+  SWFShape sh1, sh2;
+  SWFDisplayItem it1, it2;
+  int i;
+
+
+  const char *srcdir=".";
+  if ( argc>1 ) 
+    srcdir=argv[1];
+  else
+  {
+      //fprintf(stderr, "Usage: %s <mediadir>\n", argv[0]);
+      //return 1;
+  }
+
+  Ming_init();
+  mo = newSWFMovieWithVersion(OUTPUT_VERSION);
+  SWFMovie_setDimension(mo, 800, 600);
+  SWFMovie_setRate (mo, 1);
+
+  // frame1
+  dejagnuclip = get_dejagnu_clip((SWFBlock)get_default_font(srcdir), 10, 0, 0, 
800, 600);
+  SWFMovie_add(mo, (SWFBlock)dejagnuclip);
+  add_actions(mo, " hasKeyPressed = false; x1 = 0;" );
+
+  add_actions(mo, " obj = new Object(); "
+                  " obj.onKeyDown = function () "
+                  " { "
+                  "   _root.note('key listener invoked'); "
+                  "   _root.x1 = 1; "
+                  " };" 
+                  " Key.addListener(obj); "
+                  // After deleting obj, we still have a key listener kept 
alive!
+                  " delete obj; " );
+  SWFMovie_nextFrame(mo); 
+
+  for(i=1; i<10; i++)
+  {
+    SWFMovie_nextFrame(mo); 
+  }
+
+  // Check that the explicity reference('obj') has been deleted.
+  // But the object is still alive as a key listener!
+  check_equals(mo, "typeof(obj)", "'undefined'");
+  
+  add_actions(mo, "if(hasKeyPressed)"
+                   "{"
+                   "  check_equals(_root.x1, 1); "
+                   "}" );
+                   
+  add_actions(mo, "stop(); total();");
+  SWFMovie_nextFrame(mo);  
+  
+  //Output movie
+  puts("Saving " OUTPUT_FILENAME );
+  SWFMovie_save(mo, OUTPUT_FILENAME);
+
+  return 0;
+}