1 files changed, 150 insertions, 0 deletions
diff --git a/Source/JavaScriptCore/tests/mozilla/ecma/Array/15.4.5.1-2.js b/Source/JavaScriptCore/tests/mozilla/ecma/Array/15.4.5.1-2.js
new file mode 100644
index 0000000..08b4721
--- /dev/null
+++ b/Source/JavaScriptCore/tests/mozilla/ecma/Array/15.4.5.1-2.js
@@ -0,0 +1,150 @@
+/* The contents of this file are subject to the Netscape Public
+ * License Version 1.1 (the "License"); you may not use this file
+ * except in compliance with the License. You may obtain a copy of
+ * the License at http://www.mozilla.org/NPL/
+ *
+ * Software distributed under the License is distributed on an "AS
+ * IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
+ * implied. See the License for the specific language governing
+ * rights and limitations under the License.
+ *
+ * The Original Code is Mozilla Communicator client code, released March
+ * 31, 1998.
+ *
+ * The Initial Developer of the Original Code is Netscape Communications
+ * Corporation. Portions created by Netscape are
+ * Copyright (C) 1998 Netscape Communications Corporation. All
+ * Rights Reserved.
+ *
+ * Contributor(s): 
+ * 
+ */
+/**
+    File Name:          15.4.5.1-2.js
+    ECMA Section:       [[ Put]] (P, V)
+    Description:
+    Array objects use a variation of the [[Put]] method used for other native
+    ECMAScript objects (section 8.6.2.2).
+
+    Assume A is an Array object and P is a string.
+
+    When the [[Put]] method of A is called with property P and value V, the
+    following steps are taken:
+
+    1.  Call the [[CanPut]] method of A with name P.
+    2.  If Result(1) is false, return.
+    3.  If A doesn't have a property with name P, go to step 7.
+    4.  If P is "length", go to step 12.
+    5.  Set the value of property P of A to V.
+    6.  Go to step 8.
+    7.  Create a property with name P, set its value to V and give it empty
+        attributes.
+    8.  If P is not an array index, return.
+    9.  If A itself has a property (not an inherited property) named "length",
+        andToUint32(P) is less than the value of the length property of A, then
+        return.
+    10. Change (or set) the value of the length property of A to ToUint32(P)+1.
+    11. Return.
+    12. Compute ToUint32(V).
+    13. For every integer k that is less than the value of the length property
+        of A but not less than Result(12), if A itself has a property (not an
+        inherited property) named ToString(k), then delete that property.
+    14. Set the value of property P of A to Result(12).
+    15. Return.
+
+
+    These are testcases from Waldemar, detailed in
+    http://scopus.mcom.com/bugsplat/show_bug.cgi?id=123552
+
+    Author:             christine@netscape.com
+    Date:               15 June 1998
+*/
+
+    var SECTION = "15.4.5.1-2";
+    var VERSION = "ECMA_1";
+    startTest();
+    var TITLE   = "Array [[Put]] (P,V)";
+
+    writeHeaderToLog( SECTION + " "+ TITLE);
+
+    var testcases = new Array();
+
+    var a = new Array();
+
+    AddCase( "3.00", "three" );
+    AddCase( "00010", "eight" );
+    AddCase( "37xyz", "thirty-five" );
+    AddCase("5000000000", 5)
+    AddCase( "-2", -3 );
+
+    testcases[tc++] = new TestCase( SECTION,
+        "a[10]",
+        void 0,
+        a[10] );
+
+    testcases[tc++] = new TestCase( SECTION,
+        "a[3]",
+        void 0,
+        a[3] );
+
+    a[4] = "four";
+
+    testcases[tc++] = new TestCase( SECTION,
+        "a[4] = \"four\"; a[4]",
+        "four",
+        a[4] );
+
+    testcases[tc++] = new TestCase( SECTION,
+        "a[\"4\"]",
+        "four",
+        a["4"] );
+
+    testcases[tc++] = new TestCase( SECTION,
+        "a[\"4.00\"]",
+        void 0,
+        a["4.00"] );
+
+    testcases[tc++] = new TestCase( SECTION,
+        "a.length",
+        5,
+        a.length );
+
+
+    a["5000000000"] = 5;
+
+    testcases[tc++] = new TestCase( SECTION,
+        "a[\"5000000000\"] = 5; a.length",
+        5,
+        a.length );
+
+    testcases[tc++] = new TestCase( SECTION,
+        "a[\"-2\"] = -3; a.length",
+        5,
+        a.length );
+
+    test();
+
+function AddCase ( arg, value ) {
+
+    a[arg] = value;
+
+    testcases[tc++] = new TestCase( SECTION,
+        "a[\"" + arg + "\"] =  "+ value +"; a.length",
+        0,
+        a.length );
+}
+
+
+function test() {
+    for ( tc=0; tc < testcases.length; tc++ ) {
+        testcases[tc].passed = writeTestCaseResult(
+                            testcases[tc].expect,
+                            testcases[tc].actual,
+                            testcases[tc].description +" = "+
+                            testcases[tc].actual );
+
+        testcases[tc].reason += ( testcases[tc].passed ) ? "" : "wrong value ";
+    }
+    stopTest();
+    return ( testcases );
+}