[Gnash-commit] gnash/testsuite actionscript.all/ops.as misc-sw...

[Zou Lunkai]

CVSROOT:        /sources/gnash
Module name:    gnash
Changes by:     Zou Lunkai <zoulunkai>  07/11/20 08:54:33

Modified files:
        testsuite/actionscript.all: ops.as 
        testsuite/misc-swfc.all: swf4opcode.sc 

Log message:
        

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/gnash/testsuite/actionscript.all/ops.as?cvsroot=gnash&r1=1.26&r2=1.27
http://cvs.savannah.gnu.org/viewcvs/gnash/testsuite/misc-swfc.all/swf4opcode.sc?cvsroot=gnash&r1=1.2&r2=1.3

Patches:
Index: actionscript.all/ops.as
===================================================================
RCS file: /sources/gnash/gnash/testsuite/actionscript.all/ops.as,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -b -r1.26 -r1.27
--- actionscript.all/ops.as     15 Nov 2007 23:38:14 -0000      1.26
+++ actionscript.all/ops.as     20 Nov 2007 08:54:33 -0000      1.27
@@ -20,7 +20,7 @@
  *  Test binary predicates (equal, less_then, greater_then, logical and 
bitwise ops)
  */
 
-rcsid="$Id: ops.as,v 1.26 2007/11/15 23:38:14 strk Exp $";
+rcsid="$Id: ops.as,v 1.27 2007/11/20 08:54:33 zoulunkai Exp $";
 
 #include "check.as"
 
@@ -28,7 +28,9 @@
 //--------------------------------------------
 // Equality operator (ACTION_NEWEQUALS : 0x49)
 //--------------------------------------------
-
+check('xyz' == 'xyz');
+check(!('xyz' == 'XYZ'));
+check(!('xyz' == 'abc'));
 check(1 == 1); // doh
 check(1 == "1");
 check("1" == 1);
@@ -45,10 +47,16 @@
 check(! (0 == 'string') );
 check(! ('string' == NaN) );
 check(! (NaN == 'string') );
-check(! (Infinite == 'Infinite') );
-check(! ('Infinite' == Infinite) );
-check(! (-Infinite == '-Infinite') );
-check(! ('-Infinite' == -Infinite) );
+check(! (Infinity == 'Infinity') );
+check(! ('Infinity' == Infinity) );
+check(! (-Infinity == '-Infinity') );
+check(! ('-Infinity' == -Infinity) );
+check(Infinity == Infinity);
+check(-Infinity == -Infinity);
+check(! (-Infinity == Infinity));
+x = 1;
+check_equals(x/0, Infinity);
+check_equals(-x/0, -Infinity);
 check(1==true);
 check(true==1);
 check(2!=true);
@@ -665,7 +673,7 @@
 check(isNaN(y));
 
 #if OUTPUT_VERSION < 7
- totals(193);
+ totals(201);
 #else
- totals(195);
+ totals(203);
 #endif

Index: misc-swfc.all/swf4opcode.sc
===================================================================
RCS file: /sources/gnash/gnash/testsuite/misc-swfc.all/swf4opcode.sc,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- misc-swfc.all/swf4opcode.sc 20 Nov 2007 07:40:19 -0000      1.2
+++ misc-swfc.all/swf4opcode.sc 20 Nov 2007 08:54:33 -0000      1.3
@@ -60,6 +60,8 @@
         xcheck_equals(testvar, 1); 
         xcheck_equals('xyz', 0);
         xcheck_equals('abc', 0);
+        xcheck_equals('xyz', 'xyz');
+        xcheck_equals('xyz', 'abc');
         
         // test 'undefined' in swf4
         check_equals(uninitialized2, uninitialized3);
@@ -67,6 +69,16 @@
         check_equals(undefined, 0);
         check_equals(0, undefined);
         check_equals(undefined, undefined);
+        
+        // test 'Infinity' in swf4
+        // there's no 'Infinity' constants in swf4
+        check_equals(Infinity, undefined);
+        check_equals(Infinity, Infinity);
+        check_equals(Infinity, -Infinity);
+
+               // test 'null' in swf4
+               // there's no null in swf4
+               check_equals(null, undefined);
     .end
 
 .frame 3