1/* The contents of this file are subject to the Netscape Public
2 * License Version 1.1 (the "License"); you may not use this file
3 * except in compliance with the License. You may obtain a copy of
4 * the License at http://www.mozilla.org/NPL/
5 *
6 * Software distributed under the License is distributed on an "AS
7 * IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
8 * implied. See the License for the specific language governing
9 * rights and limitations under the License.
10 *
11 * The Original Code is Mozilla Communicator client code, released March
12 * 31, 1998.
13 *
14 * The Initial Developer of the Original Code is Netscape Communications
15 * Corporation. Portions created by Netscape are
16 * Copyright (C) 1998 Netscape Communications Corporation. All
17 * Rights Reserved.
18 *
19 * Contributor(s):
20 *
21 */
22/**
23    File Name:          nesting-1.js
24    Reference:          http://scopus.mcom.com/bugsplat/show_bug.cgi?id=122040
25    Description:        Regression test for a nested function
26
27    Author:             christine@netscape.com
28    Date:               15 June 1998
29*/
30
31    var SECTION = "function/nesting-1.js";
32    var VERSION = "JS_12";
33    startTest();
34    var TITLE   = "Regression test for 122040";
35
36    writeHeaderToLog( SECTION + " "+ TITLE);
37
38    var testcases = new Array();
39
40    function f(a) {function g(b) {return a+b;}; return g;}; f(7)
41
42    testcases[tc++] = new TestCase( SECTION,
43        'function f(a) {function g(b) {return a+b;}; return g;}; typeof f(7)',
44        "function",
45        typeof f(7) );
46
47    test();
48
49function test() {
50    for ( tc=0; tc < testcases.length; tc++ ) {
51        testcases[tc].passed = writeTestCaseResult(
52                            testcases[tc].expect,
53                            testcases[tc].actual,
54                            testcases[tc].description +" = "+
55                            testcases[tc].actual );
56
57        testcases[tc].reason += ( testcases[tc].passed ) ? "" : "wrong value ";
58    }
59    stopTest();
60    return ( testcases );
61}
62