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

[Sandro Santilli]

CVSROOT:        /sources/gnash
Module name:    gnash
Changes by:     Sandro Santilli <strk>  07/03/20 21:48:49

Modified files:
        testsuite/actionscript.all: Function.as 

Log message:
        more tests

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/gnash/testsuite/actionscript.all/Function.as?cvsroot=gnash&r1=1.36&r2=1.37

Patches:
Index: Function.as
===================================================================
RCS file: /sources/gnash/gnash/testsuite/actionscript.all/Function.as,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -b -r1.36 -r1.37
--- Function.as 20 Mar 2007 19:13:42 -0000      1.36
+++ Function.as 20 Mar 2007 21:48:49 -0000      1.37
@@ -20,7 +20,7 @@
 // compile this test case with Ming makeswf, and then
 // execute it like this gnash -1 -r 0 -v out.swf
 
-rcsid="$Id: Function.as,v 1.36 2007/03/20 19:13:42 strk Exp $";
+rcsid="$Id: Function.as,v 1.37 2007/03/20 21:48:49 strk Exp $";
 
 #include "check.as"
 
@@ -541,8 +541,13 @@
 check( ! Email.hasOwnProperty('__constructor__') );
 
 Email.prototype = new Mail;
+
+check_equals(typeof(Email.prototype.constructor), 'function');
+check_equals(Email.prototype.constructor, Mail);
+
 #if OUTPUT_VERSION > 5 
 check_equals(typeof(Email.prototype.__constructor__), 'function');
+check_equals(Email.prototype.__constructor__, Email.prototype.constructor);
 #else
 check_equals(typeof(Email.prototype.__constructor__), 'undefined');
 #endif