From ece8b98f542dfdb98ecf06f5d1a85c0b1ab64402 Mon Sep 17 00:00:00 2001
From: "cbegle%netscape.com" <cbegle%netscape.com>
Date: Wed, 14 Jul 1999 20:26:27 +0000
Subject: [PATCH] add a regression test for bug #9802

---
 js/tests/ecma/Statements/12.6.3-12.js | 96 +++++++++++++++++++++++++++
 1 file changed, 96 insertions(+)
 create mode 100644 js/tests/ecma/Statements/12.6.3-12.js

diff --git a/js/tests/ecma/Statements/12.6.3-12.js b/js/tests/ecma/Statements/12.6.3-12.js
new file mode 100644
index 00000000000..4df8adfefe4
--- /dev/null
+++ b/js/tests/ecma/Statements/12.6.3-12.js
@@ -0,0 +1,96 @@
+/* The contents of this file are subject to the Netscape Public License
+ * Version 1.0 (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.
+ *
+ */
+/**
+    File Name:          12.6.3-12.js
+    ECMA Section:       12.6.3 The for...in Statement
+    Description:
+
+    This is a regression test for http://bugzilla.mozilla.org/show_bug.cgi?id=9802.
+
+    The production IterationStatement : for ( LeftHandSideExpression in Expression )
+    Statement is evaluated as follows:
+
+    1.  Evaluate the Expression.
+    2.  Call GetValue(Result(1)).
+    3.  Call ToObject(Result(2)).
+    4.  Let C be "normal completion".
+    5.  Get the name of the next property of Result(3) that doesn't have the
+        DontEnum attribute. If there is no such property, go to step 14.
+    6.  Evaluate the LeftHandSideExpression (it may be evaluated repeatedly).
+    7.  Call PutValue(Result(6), Result(5)).  PutValue( V, W ):
+        1.  If Type(V) is not Reference, generate a runtime error.
+        2.  Call GetBase(V).
+        3.  If Result(2) is null, go to step 6.
+        4.  Call the [[Put]] method of Result(2), passing GetPropertyName(V)
+            for the property name and W for the value.
+        5.  Return.
+        6.  Call the [[Put]] method for the global object, passing
+            GetPropertyName(V) for the property name and W for the value.
+        7.  Return.
+    8.  Evaluate Statement.
+    9.  If Result(8) is a value completion, change C to be "normal completion
+        after value V" where V is the value carried by Result(8).
+    10. If Result(8) is a break completion, go to step 14.
+    11. If Result(8) is a continue completion, go to step 5.
+    12. If Result(8) is a return completion, return Result(8).
+    13. Go to step 5.
+    14. Return C.
+
+    Author:             christine@netscape.com
+    Date:               11 september 1997
+*/
+    var SECTION = "12.6.3-12";
+    var VERSION = "ECMA_1";
+    startTest();
+    var TITLE   = "The for..in statment";
+
+    writeHeaderToLog( SECTION + " "+ TITLE);
+
+    var testcases = new Array();
+
+    var result = "PASSED";
+
+    for ( aVar in this ) {
+        if (aVar == "aVar")
+            result = "FAILED"
+    };
+
+    testcases[testcases.length] = new TestCase(
+        SECTION,
+        "var result=''; for ( aVar in this ) { " +
+        "if (aVar == 'aVar') result = 'FAILED!'; result",
+        "PASSED",
+        result );
+
+    test();
+
+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 );
+}
+