michael@0: /* -*- Mode: C++; tab-width: 2; indent-tabs-mode: nil; c-basic-offset: 2 -*- */
michael@0: 
michael@0: /*
michael@0:  * Any copyright is dedicated to the Public Domain.
michael@0:  * http://creativecommons.org/licenses/publicdomain/
michael@0:  */
michael@0: 
michael@0: /* Simple identifier labels. */
michael@0: assertEq(testLenientAndStrict('({x:1, x:1})',
michael@0:                               parsesSuccessfully,
michael@0:                               parseRaisesException(SyntaxError)),
michael@0:          true);
michael@0: 
michael@0: assertEq(testLenientAndStrict('({x:1, y:1})',
michael@0:                               parsesSuccessfully,
michael@0:                               parsesSuccessfully),
michael@0:          true);
michael@0: 
michael@0: assertEq(testLenientAndStrict('({x:1, y:1, x:1})',
michael@0:                               parsesSuccessfully,
michael@0:                               parseRaisesException(SyntaxError)),
michael@0:          true);
michael@0: 
michael@0: /* Property names can be written as strings, too. */
michael@0: assertEq(testLenientAndStrict('({x:1,   "x":1})',
michael@0:                               parsesSuccessfully,
michael@0:                               parseRaisesException(SyntaxError)),
michael@0:          true);
michael@0: 
michael@0: assertEq(testLenientAndStrict('({"x":1, x:1})',
michael@0:                               parsesSuccessfully,
michael@0:                               parseRaisesException(SyntaxError)),
michael@0:          true);
michael@0: 
michael@0: assertEq(testLenientAndStrict('({"x":1, "x":1})',
michael@0:                               parsesSuccessfully,
michael@0:                               parseRaisesException(SyntaxError)),
michael@0:          true);
michael@0: 
michael@0: /* Numeric property names. */
michael@0: assertEq(testLenientAndStrict('({1.5:1, 1.5:1})',
michael@0:                               parsesSuccessfully,
michael@0:                               parseRaisesException(SyntaxError)),
michael@0:          true);
michael@0: 
michael@0: assertEq(testLenientAndStrict('({1.5:1, 15e-1:1})',
michael@0:                               parsesSuccessfully,
michael@0:                               parseRaisesException(SyntaxError)),
michael@0:          true);
michael@0: 
michael@0: assertEq(testLenientAndStrict('({6.02214179e23:1, 6.02214179e23:1})',
michael@0:                               parsesSuccessfully,
michael@0:                               parseRaisesException(SyntaxError)),
michael@0:          true);
michael@0: 
michael@0: assertEq(testLenientAndStrict('({6.02214179e23:1, 3.1415926535:1})',
michael@0:                               parsesSuccessfully,
michael@0:                               parsesSuccessfully),
michael@0:          true);
michael@0: 
michael@0: assertEq(testLenientAndStrict('({ 1: 1, "1": 2 })',
michael@0:                               parsesSuccessfully,
michael@0:                               parseRaisesException(SyntaxError)),
michael@0:          true);
michael@0: 
michael@0: assertEq(testLenientAndStrict('({ "1": 1, 1: 2 })',
michael@0:                               parsesSuccessfully,
michael@0:                               parseRaisesException(SyntaxError)),
michael@0:          true);
michael@0: 
michael@0: assertEq(testLenientAndStrict('({ 2.5: 1, "2.5": 2 })',
michael@0:                               parsesSuccessfully,
michael@0:                               parseRaisesException(SyntaxError)),
michael@0:          true);
michael@0: 
michael@0: assertEq(testLenientAndStrict('({ "2.5": 1, 2.5: 2 })',
michael@0:                               parsesSuccessfully,
michael@0:                               parseRaisesException(SyntaxError)),
michael@0:          true);
michael@0: 
michael@0: /* Many properties, to exercise JSAtomList's hash-table variant. */
michael@0: assertEq(testLenientAndStrict('({a:1, b:1, c:1, d:1, e:1, f:1, g:1, h:1, i:1, j:1, k:1, l:1, m:1, n:1, o:1, p:1, q:1, r:1, s:1, t:1, u:1, v:1, w:1, x:1, y:1, z:1})',
michael@0:                               parsesSuccessfully,
michael@0:                               parsesSuccessfully),
michael@0:          true);
michael@0: 
michael@0: assertEq(testLenientAndStrict('({a:1, b:1, c:1, d:1, e:1, f:1, g:1, h:1, i:1, j:1, k:1, l:1, m:1, n:1, o:1, p:1, q:1, r:1, s:1, t:1, u:1, v:1, w:1, x:1, y:1, a:1})',
michael@0:                               parsesSuccessfully,
michael@0:                               parseRaisesException(SyntaxError)),
michael@0:          true);
michael@0: 
michael@0: /*
michael@0:  * Getters, setters, and value properties should conflict only when
michael@0:  * appropriate.
michael@0:  */
michael@0: assertEq(testLenientAndStrict('({get x() {}, x:1})',
michael@0:                               parseRaisesException(SyntaxError),
michael@0:                               parseRaisesException(SyntaxError)),
michael@0:          true);
michael@0: 
michael@0: assertEq(testLenientAndStrict('({x:1, get x() {}})',
michael@0:                               parseRaisesException(SyntaxError),
michael@0:                               parseRaisesException(SyntaxError)),
michael@0:          true);
michael@0: 
michael@0: assertEq(testLenientAndStrict('({set x(q) {}, x:1})',
michael@0:                               parseRaisesException(SyntaxError),
michael@0:                               parseRaisesException(SyntaxError)),
michael@0:          true);
michael@0: 
michael@0: assertEq(testLenientAndStrict('({x:1, set x(q) {}})',
michael@0:                               parseRaisesException(SyntaxError),
michael@0:                               parseRaisesException(SyntaxError)),
michael@0:          true);
michael@0: 
michael@0: assertEq(testLenientAndStrict('({1:1, set 1(q) {}})',
michael@0:                               parseRaisesException(SyntaxError),
michael@0:                               parseRaisesException(SyntaxError)),
michael@0:          true);
michael@0: 
michael@0: assertEq(testLenientAndStrict('({set 1(q) {}, 1:1})',
michael@0:                               parseRaisesException(SyntaxError),
michael@0:                               parseRaisesException(SyntaxError)),
michael@0:          true);
michael@0: 
michael@0: assertEq(testLenientAndStrict('({"1":1, set 1(q) {}})',
michael@0:                               parseRaisesException(SyntaxError),
michael@0:                               parseRaisesException(SyntaxError)),
michael@0:          true);
michael@0: 
michael@0: assertEq(testLenientAndStrict('({set 1(q) {}, "1":1})',
michael@0:                               parseRaisesException(SyntaxError),
michael@0:                               parseRaisesException(SyntaxError)),
michael@0:          true);
michael@0: 
michael@0: assertEq(testLenientAndStrict('({get x() {}, set x(q) {}})',
michael@0:                               parsesSuccessfully,
michael@0:                               parsesSuccessfully),
michael@0:          true);
michael@0: 
michael@0: assertEq(testLenientAndStrict('({set x(q) {}, get x() {}})',
michael@0:                               parsesSuccessfully,
michael@0:                               parsesSuccessfully),
michael@0:          true);
michael@0: 
michael@0: assertEq(testLenientAndStrict('({get x() {}, set x(q) {}, x:1})',
michael@0:                               parseRaisesException(SyntaxError),
michael@0:                               parseRaisesException(SyntaxError)),
michael@0:          true);
michael@0: 
michael@0: assertEq(testLenientAndStrict('({set x(q) {}, get x() {}, x:1})',
michael@0:                               parseRaisesException(SyntaxError),
michael@0:                               parseRaisesException(SyntaxError)),
michael@0:          true);
michael@0: 
michael@0: assertEq(testLenientAndStrict('({get x() {}, get x() {}})',
michael@0:                               parseRaisesException(SyntaxError),
michael@0:                               parseRaisesException(SyntaxError)),
michael@0:          true);
michael@0: 
michael@0: assertEq(testLenientAndStrict('({set x() {}, set x() {}})',
michael@0:                               parseRaisesException(SyntaxError),
michael@0:                               parseRaisesException(SyntaxError)),
michael@0:          true);
michael@0: 
michael@0: assertEq(testLenientAndStrict('({get x() {}, set x(q) {}, y:1})',
michael@0:                               parsesSuccessfully,
michael@0:                               parsesSuccessfully),
michael@0:          true);
michael@0: 
michael@0: reportCompare(true, true);