js/src/tests/ecma/FunctionObjects/15.3.1.1-3.js

   1 /* -*- Mode: C++; tab-width: 2; indent-tabs-mode: nil; c-basic-offset: 2 -*- */
   2 /* ***** BEGIN LICENSE BLOCK *****
   3  * Version: MPL 1.1/GPL 2.0/LGPL 2.1
   4  *
   5  * The contents of this file are subject to the Mozilla Public License Version
   6  * 1.1 (the "License"); you may not use this file except in compliance with
   7  * the License. You may obtain a copy of the License at
   8  * http://www.mozilla.org/MPL/
   9  *
  10  * Software distributed under the License is distributed on an "AS IS" basis,
  11  * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
  12  * for the specific language governing rights and limitations under the
  13  * License.
  14  *
  15  * The Original Code is Mozilla Communicator client code, released
  16  * March 31, 1998.
  17  *
  18  * The Initial Developer of the Original Code is
  19  * Netscape Communications Corporation.
  20  * Portions created by the Initial Developer are Copyright (C) 1998
  21  * the Initial Developer. All Rights Reserved.
  22  *
  23  * Contributor(s):
  24  *
  25  * Alternatively, the contents of this file may be used under the terms of
  26  * either the GNU General Public License Version 2 or later (the "GPL"), or
  27  * the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
  28  * in which case the provisions of the GPL or the LGPL are applicable instead
  29  * of those above. If you wish to allow use of your version of this file only
  30  * under the terms of either the GPL or the LGPL, and not to allow others to
  31  * use your version of this file under the terms of the MPL, indicate your
  32  * decision by deleting the provisions above and replace them with the notice
  33  * and other provisions required by the GPL or the LGPL. If you do not delete
  34  * the provisions above, a recipient may use your version of this file under
  35  * the terms of any one of the MPL, the GPL or the LGPL.
  36  *
  37  * ***** END LICENSE BLOCK ***** */
  38
  39
  40 /**
  41    File Name:          15.3.1.1-3.js
  42    ECMA Section:       15.3.1.1 The Function Constructor Called as a Function
  43
  44    new Function(p1, p2, ..., pn, body )
  45
  46    Description:        The last argument specifies the body (executable code)
  47    of a function; any preceding arguments sepcify formal
  48    parameters.
  49
  50    See the text for description of this section.
  51
  52    This test examples from the specification.
  53
  54    Author:             christine@netscape.com
  55    Date:               28 october 1997
  56
  57 */
  58 var SECTION = "15.3.1.1-3";
  59 var VERSION = "ECMA_1";
  60 startTest();
  61 var TITLE   = "The Function Constructor Called as a Function";
  62
  63 writeHeaderToLog( SECTION + " "+ TITLE);
  64
  65 var args = "";
  66
  67 for ( var i = 0; i < 2000; i++ ) {
  68   args += "arg"+i;
  69   if ( i != 1999 ) {
  70     args += ",";
  71   }
  72 }
  73
  74 var s = "";
  75
  76 for ( var i = 0; i < 2000; i++ ) {
  77   s += ".0005";
  78   if ( i != 1999 ) {
  79     s += ",";
  80   }
  81 }
  82
  83 MyFunc = Function( args, "var r=0; for (var i = 0; i < MyFunc.length; i++ ) { if ( eval('arg'+i) == void 0) break; else r += eval('arg'+i); }; return r");
  84 MyObject = Function( args, "for (var i = 0; i < MyFunc.length; i++ ) { if ( eval('arg'+i) == void 0) break; eval('this.arg'+i +'=arg'+i); };");
  85
  86 var MY_OB = eval( "MyFunc("+ s +")" );
  87
  88 new TestCase( SECTION, "MyFunc.length",                       2000,         MyFunc.length );
  89 new TestCase( SECTION, "var MY_OB = eval('MyFunc(s)')",       1,            MY_OB );
  90 new TestCase( SECTION, "var MY_OB = eval('MyFunc(s)')",       1,            eval("var MY_OB = MyFunc("+s+"); MY_OB") );
  91
  92 new TestCase( SECTION, "MyObject.length",                       2000,         MyObject.length );
  93
  94 new TestCase( SECTION, "FUN1 = Function( 'a','b','c', 'return FUN1.length' ); FUN1.length",     3, eval("FUN1 = Function( 'a','b','c', 'return FUN1.length' ); FUN1.length") );
  95 new TestCase( SECTION, "FUN1 = Function( 'a','b','c', 'return FUN1.length' ); FUN1()",          3, eval("FUN1 = Function( 'a','b','c', 'return FUN1.length' ); FUN1()") );
  96 new TestCase( SECTION, "FUN1 = Function( 'a','b','c', 'return FUN1.length' ); FUN1(1,2,3,4,5)", 3, eval("FUN1 = Function( 'a','b','c', 'return FUN1.length' ); FUN1(1,2,3,4,5)") );
  97
  98 test();