testsuite/actionscript.all/argstest.as

   1 //
   2 //   Copyright (C) 2005, 2006, 2007, 2009, 2010 Free Software
   3 //   Foundation, Inc
   4 //
   5 // This program is free software; you can redistribute it and/or modify
   6 // it under the terms of the GNU General Public License as published by
   7 // the Free Software Foundation; either version 3 of the License, or
   8 // (at your option) any later version.
   9 //
  10 // This program is distributed in the hope that it will be useful,
  11 // but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13 // GNU General Public License for more details.
  14 //
  15 // You should have received a copy of the GNU General Public License
  16 // along with this program; if not, write to the Free Software
  17 // Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
  18 //
  19
  20
  21 rcsid="array.as";
  22 #include "check.as"
  23
  24  callAndRecurse = function(prop, name) {
  25
  26        // Don't recurse infinitely.
  27        if (prop == "__proto__") return;
  28        if (prop == "constructor") return;
  29
  30        // i is the object, name is its name.
  31        name = name + "." + prop;
  32        var i = eval(name);
  33
  34        trace("testing " + name + "(" + typeof(i) + ")");
  35
  36        if (typeof(i) == "function") {
  37
  38            // First call with various arguments.
  39            i();
  40            i(1);
  41            i(1, 2);
  42            i(1, 2, 3);
  43            i(1, 2, 3, 4);
  44
  45            trace("Trying to construct " + name);
  46            o = new i();
  47
  48            if (o) {
  49                trace("Object was constructed");
  50                ASSetPropFlags(o, null, 0, 1);
  51                ASSetPropFlags(o.__proto__, null, 0, 1);
  52                for (p in o) {
  53                    trace("Testing " + p + "()");
  54                    o[p]();
  55                    o[p](1);
  56                    o[p](1, 2);
  57                    o[p](1, 2, 3);
  58                    o[p](1, 2, 3, 4);
  59
  60                    o[p].call();
  61                    o[p].call(null);
  62                    o[p].call(null, 1);
  63                    o[p].call(null, 1, 2);
  64                    o[p].call(null, 1, 2, 3);
  65                    o[p].call(null, 1, 2, 3, 4);
  66
  67                    // Recurse for own properties only.
  68                    if (o.hasOwnProperty(p)) {
  69                        callAndRecurse(p, name);
  70                    }
  71                };
  72            };
  73        }
  74        else if (typeof(i) == "object") {
  75            ASSetPropFlags(i, null, 0, 1);
  76            for (p in i) {
  77                callAndRecurse(p, name);
  78            };
  79        };
  80   };
  81
  82
  83  start = "_global";
  84  obj = eval(start);
  85
  86  ASSetPropFlags(obj, null, 0, 1);
  87  for (prop in obj) {
  88      callAndRecurse(prop, start);
  89  };
  90
  91 pass("Nothing crashed gnash");