[Gnash-commit] gnash ChangeLog testsuite/misc-swfc.all/Makefil...

[Zou Lunkai]

CVSROOT:        /sources/gnash
Module name:    gnash
Changes by:     Zou Lunkai <zoulunkai>  07/09/19 08:02:15

Modified files:
        .              : ChangeLog 
        testsuite/misc-swfc.all: Makefile.am 
Added files:
        testsuite/misc-swfc.all: edittext_test1.sc 

Log message:
        * testsuite/misc-swfc.all/edittext_test1.sc, Makefile.am: new testcase 
for 
          TextField using swfc. Clearer then Ming based tests. TextField 
variable
          still need some work.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/gnash/ChangeLog?cvsroot=gnash&r1=1.4346&r2=1.4347
http://cvs.savannah.gnu.org/viewcvs/gnash/testsuite/misc-swfc.all/Makefile.am?cvsroot=gnash&r1=1.11&r2=1.12
http://cvs.savannah.gnu.org/viewcvs/gnash/testsuite/misc-swfc.all/edittext_test1.sc?cvsroot=gnash&rev=1.1

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/gnash/gnash/ChangeLog,v
retrieving revision 1.4346
retrieving revision 1.4347
diff -u -b -r1.4346 -r1.4347
--- ChangeLog   19 Sep 2007 06:38:04 -0000      1.4346
+++ ChangeLog   19 Sep 2007 08:02:15 -0000      1.4347
@@ -1,3 +1,9 @@
+2007-09-19 Zou Lunkai <address@hidden>
+
+       * testsuite/misc-swfc.all/edittext_test1.sc, Makefile.am: new testcase 
for 
+         TextField using swfc. Clearer then Ming based tests. TextField 
variable
+         still need some work.
+
 2007-09-19 Sandro Santilli <address@hidden>
 
        * gui/kde_glue_agg.cpp: fix initialization order warning.

Index: testsuite/misc-swfc.all/Makefile.am
===================================================================
RCS file: /sources/gnash/gnash/testsuite/misc-swfc.all/Makefile.am,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -b -r1.11 -r1.12
--- testsuite/misc-swfc.all/Makefile.am 18 Sep 2007 10:30:40 -0000      1.11
+++ testsuite/misc-swfc.all/Makefile.am 19 Sep 2007 08:02:15 -0000      1.12
@@ -29,6 +29,7 @@
        movieclip_destruction_test4.sc \
        action_execution_order_test10.sc \
        action_execution_order_test12.sc \
+       edittext_test1.sc \
        $(NULL)
 
 # These will get compiled to SWFs just as above, but will not be executed as a 
test

Index: testsuite/misc-swfc.all/edittext_test1.sc
===================================================================
RCS file: testsuite/misc-swfc.all/edittext_test1.sc
diff -N testsuite/misc-swfc.all/edittext_test1.sc
--- /dev/null   1 Jan 1970 00:00:00 -0000
+++ testsuite/misc-swfc.all/edittext_test1.sc   19 Sep 2007 08:02:15 -0000      
1.1
@@ -0,0 +1,115 @@
+/*
+ *   Copyright (C) 2005, 2006, 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 3 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
+ */
+
+
+.flash  bbox=800x600 filename="edittext_test1.swf" background=white version=7 
fps=1
+
+.frame 1
+  .action:
+   #include "Dejagnu.sc"
+  .end
+
+  .edittext edtext1 size=200% 
+            width=400 height=200 
+            color=blue border multiline wordwrap
+            text="Hello"
+            variable="textVar1"
+            
+  .put edtext1 x=10 y=300
+  
+  .action:
+    // check the initial values
+    check_equals(typeof(edtext1), 'object');
+    xcheck_equals(edtext1._name, 'edtext1');
+    xcheck_equals(edtext1._target, '/edtext1');
+    check_equals(edtext1.text, 'Hello');
+    check_equals(edtext1.variable, 'textVar1');
+    check_equals(_root.textVar1, 'Hello');
+  .end
+
+
+.frame 2
+  .action:
+    // Update the registered variable
+    _root.textVar1 = 'new-string-frame2';   
+    check_equals(_root.textVar1, 'new-string-frame2');
+    // The return value of TextField.text also updated
+    check_equals(edtext1.text, 'new-string-frame2');
+  .end
+
+.frame 3
+  .action:
+    // Update TextField.text
+    edtext1.text = 'new-string-frame3';
+    check_equals(edtext1.text, 'new-string-frame3');
+    // The return value of the registered variable also updated
+    check_equals(edtext1.text, 'new-string-frame3');
+  .end
+
+.frame 4
+  .action:
+    // rename the EditText variable to 'textVar2'
+    edtext1.variable = 'textVar2'; 
+    check_equals(edtext1.variable, 'textVar2');
+    // textVar2 automatically initialized to 'Hello'
+    // (the InitialText in DefineTextField tag, make sense!)
+    xcheck_equals(_root.textVar2, 'Hello');
+    xcheck_equals(edtext1.text, 'Hello');
+    xcheck_equals(_root.textVar1, 'new-string-frame3');
+  .end
+
+
+.frame 5
+  .action:
+    // restore the EditText variable name to 'textVar1'
+    edtext1.variable = 'textVar1'; 
+    check_equals(edtext1.variable, 'textVar1');
+    // edtext1.text also restore to the value of 
+    //  _root.textVar1(the registered variable)
+    xcheck_equals(edtext1.text, 'new-string-frame3');
+  .end
+
+
+.frame 6
+  .action:
+    edtext1.text = 'new-string-frame6';
+    check_equals(edtext1.text, 'new-string-frame6');
+    xcheck_equals(_root.textVar1, 'new-string-frame6');
+    
+    // Rename the EditText variable to 'textVar3'
+    edtext1.variable = 'textVar3'; 
+    // textVar3 automatically initialized to 'Hello'
+    // (the InitialText in DefineTextField tag, make sense!)
+    xcheck_equals(_root.textVar3, 'Hello');
+    xcheck_equals(_root.textVar1, 'new-string-frame6');
+  .end
+  
+  
+.frame 10
+  .action:
+    totals();
+    stop();
+  .end
+
+ 
+.end  // file end
+