[Gnash-commit] gnash ./ChangeLog testsuite/actionscript.all/.c...

[strk]

CVSROOT:        /sources/gnash
Module name:    gnash
Branch:         
Changes by:     strk <address@hidden>   06/02/15 09:40:49

Modified files:
        .              : ChangeLog 
        testsuite/actionscript.all: .cvsignore Inheritance.as 
                                    Makefile.am check.as xtrace.as 
Added files:
        testsuite/actionscript.all: MovieClip.as gen-index.sh 
Removed files:
        testsuite/actionscript.all: movieclip.as 

Log message:
        * testsuite/actionscript.all/Makefile.am: added online-tests rule.
        * testsuite/actionscript.all/Function.as: avoided === test, not
        available in versions < 6.
        * testsuite/actionscript.all/gen-index.sh: utility script for
        the online-tests rule.
        * testsuite/actionscript.all/check.as: support for ONLINE define,
        using XTRACE and only printing failures when that's defined.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/gnash/gnash/ChangeLog.diff?tr1=1.141&tr2=1.142&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/gnash/gnash/testsuite/actionscript.all/.cvsignore.diff?tr1=1.3&tr2=1.4&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/gnash/gnash/testsuite/actionscript.all/Inheritance.as.diff?tr1=1.2&tr2=1.3&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/gnash/gnash/testsuite/actionscript.all/Makefile.am.diff?tr1=1.14&tr2=1.15&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/gnash/gnash/testsuite/actionscript.all/MovieClip.as?rev=1.1
http://cvs.savannah.gnu.org/viewcvs/gnash/gnash/testsuite/actionscript.all/check.as.diff?tr1=1.3&tr2=1.4&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/gnash/gnash/testsuite/actionscript.all/gen-index.sh?rev=1.1
http://cvs.savannah.gnu.org/viewcvs/gnash/gnash/testsuite/actionscript.all/xtrace.as.diff?tr1=1.3&tr2=1.4&r1=text&r2=text

Patches:
Index: gnash/ChangeLog
diff -u gnash/ChangeLog:1.141 gnash/ChangeLog:1.142
--- gnash/ChangeLog:1.141       Wed Feb 15 03:07:22 2006
+++ gnash/ChangeLog     Wed Feb 15 09:40:49 2006
@@ -1,3 +1,13 @@
+2006-02-15 Sandro Santilli <address@hidden>
+
+       * testsuite/actionscript.all/Makefile.am: added online-tests rule.
+       * testsuite/actionscript.all/Function.as: avoided === test, not
+       available in versions < 6.
+       * testsuite/actionscript.all/gen-index.sh: utility script for
+       the online-tests rule.
+       * testsuite/actionscript.all/check.as: support for ONLINE define,
+       using XTRACE and only printing failures when that's defined.
+
 2006-02-15 Michael Carlson <address@hidden>
 
        * server/impl.cpp: use read_swf_jpeg2_version6() when flash file
Index: gnash/testsuite/actionscript.all/.cvsignore
diff -u gnash/testsuite/actionscript.all/.cvsignore:1.3 
gnash/testsuite/actionscript.all/.cvsignore:1.4
--- gnash/testsuite/actionscript.all/.cvsignore:1.3     Fri Feb  3 19:22:41 2006
+++ gnash/testsuite/actionscript.all/.cvsignore Wed Feb 15 09:40:49 2006
@@ -4,3 +4,7 @@
 .libs
 *.as.pp
 *.as.swf
+v5
+v6
+v7
+v8
Index: gnash/testsuite/actionscript.all/Inheritance.as
diff -u gnash/testsuite/actionscript.all/Inheritance.as:1.2 
gnash/testsuite/actionscript.all/Inheritance.as:1.3
--- gnash/testsuite/actionscript.all/Inheritance.as:1.2 Tue Feb 14 12:29:48 2006
+++ gnash/testsuite/actionscript.all/Inheritance.as     Wed Feb 15 09:40:49 2006
@@ -26,16 +26,12 @@
 
 // Function.apply is Function.__proto__.apply
 check (Function.apply != undefined);
-check (Function.apply === Function.__proto__.apply);
-
-// Function.prototype is a reference to Function.__proto__ (why?)
-//check (Function.prototype === Function.__proto__);
-//check (Function.prototype.constructor === Function.__proto__.constructor);
+check (Function.apply == Function.__proto__.apply);
 
 // Confirm '__proto__' and 'prototype' members
 // for Function to be the same thing
 Function.prototype.fake = function(){};
-check(Function.fake === Function.__proto__.fake);
+check(Function.fake == Function.__proto__.fake);
 check(Function.fake == Function.prototype.fake);
 
 // Make 'functionObject' be an instance of Function (an object)
Index: gnash/testsuite/actionscript.all/Makefile.am
diff -u gnash/testsuite/actionscript.all/Makefile.am:1.14 
gnash/testsuite/actionscript.all/Makefile.am:1.15
--- gnash/testsuite/actionscript.all/Makefile.am:1.14   Tue Feb 14 17:49:58 2006
+++ gnash/testsuite/actionscript.all/Makefile.am        Wed Feb 15 09:40:49 2006
@@ -52,7 +52,6 @@
 GENERATED =                    \
        array.swf               \
        delete.swf              \
-       movieclip.swf           \
        Boolean.swf             \
        Camera.swf              \
        Color.swf               \
@@ -64,6 +63,7 @@
        LoadVars.swf            \
        Microphone.swf          \
        Mouse.swf               \
+       MovieClip.swf           \
        NetStream.swf           \
        Selection.swf           \
        SharedObject.swf        \
@@ -82,6 +82,38 @@
 
 swf: $(GENERATED)
 
+index-html: 
+       sh ./gen-index.sh $(GENERATED)
+
+v8-online-tests: index-html
+       MAKESWF_FLAGS="-DONLINE -DOUTPUT_VERSION=8 -v8" \
+               make swf
+       mkdir -p v8;
+       cp index.html v8
+
+v7-online-tests: index-html
+       MAKESWF_FLAGS="-DONLINE -DOUTPUT_VERSION=7 -v7" \
+               make swf
+       mkdir -p v7;
+       mv $(GENERATED) v7;
+       cp index.html v7
+
+v6-online-tests: index-html
+       MAKESWF_FLAGS="-DONLINE -DOUTPUT_VERSION=6 -v6" \
+               make swf
+       mkdir -p v6;
+       mv $(GENERATED) v6;
+       cp index.html v6
+
+v5-online-tests: index-html
+       MAKESWF_FLAGS="-DONLINE -DOUTPUT_VERSION=5 -v5" \
+               make swf
+       mkdir -p v5;
+       mv $(GENERATED) v5;
+       cp index.html v5
+
+online-tests: v5-online-tests v6-online-tests v7-online-tests v8-online-tests
+
 test: $(GENERATED)
        gnash -1 -r 0 -v $(GENERATED)
 
@@ -108,6 +140,6 @@
        ./definebitsjpeg2
 
 clean:
-       rm -f $(GENERATED) *.as.pp *.as.swf
+       rm -f $(GENERATED) *.as.pp *.as.swf *.vswf
 
 
Index: gnash/testsuite/actionscript.all/check.as
diff -u gnash/testsuite/actionscript.all/check.as:1.3 
gnash/testsuite/actionscript.all/check.as:1.4
--- gnash/testsuite/actionscript.all/check.as:1.3       Tue Feb 14 17:46:54 2006
+++ gnash/testsuite/actionscript.all/check.as   Wed Feb 15 09:40:49 2006
@@ -20,20 +20,33 @@
 #ifndef _CHECK_AS_
 #define _CHECK_AS_
 
+// ONLINE mode uses XTRACE
+#ifdef ONLINE
+# define USE_XTRACE
+#endif
+
 // Define USE_XTRACE to use "visual" trace
 #ifdef USE_XTRACE
 # include "xtrace.as"
 # define trace xtrace
 #endif
 
+// ONLINE mode only prints failures
+#ifdef ONLINE
+# undef pass_check
+#else
+# define pass_check(text) trace("PASSED: "+text)
+#endif
+
+#define fail_check(text) trace("FAILED: "+text+" - SWF"+OUTPUT_VERSION+" - 
"+System.capabilities.version)
 
 //
 // Use check(<expression>)
 //
 #define check(expr)  \
-       if ( expr ) trace("PASSED: " + #expr + \
+       if ( expr ) pass_check(#expr + \
                " [" + __FILE__ + ":" + __LINE__ + "]" ); \
-       else trace("FAILED: " + #expr + \
+       else fail_check(#expr + \
                " [" + __FILE__ + ":" + __LINE__ + "]" ); \
 
 #endif // _CHECK_AS_
Index: gnash/testsuite/actionscript.all/xtrace.as
diff -u gnash/testsuite/actionscript.all/xtrace.as:1.3 
gnash/testsuite/actionscript.all/xtrace.as:1.4
--- gnash/testsuite/actionscript.all/xtrace.as:1.3      Mon Feb 13 10:44:12 2006
+++ gnash/testsuite/actionscript.all/xtrace.as  Wed Feb 15 09:40:49 2006
@@ -1,3 +1,25 @@
+// 
+//   Copyright (C) 2005, 2006 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
+//
+
+#ifndef _XTRACE_AS_
+#define _XTRACE_AS_
+
 createTextField("out",300000,0,0,600,800);
 
 // FIXME: _global object isn't recognized
@@ -10,3 +32,5 @@
 
 
 xtrace("Xtrace working");
+
+#endif // _XTRACE_AS_