"{ Package: 'exept:regression' }"

"{ NameSpace: RegressionTests }"

TestCase subclass:#JavaScriptTests

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'Languages-JavaScript-Tests'

!

!JavaScriptTests class methodsFor:'documentation'!

documentation

"

    documentation to be added.

    [author:]

        cg (cg@FUSI)

    [instance variables:]

    [class variables:]

    [see also:]

"

!

history

    "Created: / 12-04-2005 / 11:54:25 / cg"

! !

!JavaScriptTests methodsFor:'helpers'!

doTestEachFromSpec:spec 

    spec do:[:triple | 

        |str checkSelectorOrNil valExpected val expectError|

        str := triple first.

        checkSelectorOrNil := triple second.

        expectError := false.

        valExpected := triple third.

        valExpected isArray ifTrue:[

            valExpected size > 0 ifTrue:[

                valExpected first == #eval ifTrue:[

                    valExpected := Parser evaluate:valExpected second

                ] ifFalse:[

                    valExpected first == #error ifTrue:[

                        expectError := true

                    ].

                ].

            ].

        ].

        expectError ifTrue:[

            self 

                should:[ (JavaScriptParser parseExpression:str) evaluate ]

                raise:Error

        ] ifFalse:[

            val := (JavaScriptParser parseExpression:str) evaluate.

            checkSelectorOrNil notNil ifTrue:[

                self assert:(val perform:checkSelectorOrNil).

            ].

            self assert:(val = valExpected).

        ].

    ]

!

    |f result|

    "/ Transcript showCR:(thisContext sender selector , '...').

    f := JavaScriptCompiler

        compile:code

        forClass:nil

        inCategory:nil

        notifying:nil.

"/ f inspect.

    self assert:(f ~~ #Error).

    self assert:(f notNil).

    f decompileTo:Transcript.

    result := f valueWithReceiver:receiver arguments:arguments.    

    self assert:(result = expectedResult).

!

execute:code for:receiver arguments:arguments expectError:expectedError

    |f errorEncountered|

    "/ Transcript showCR:(thisContext sender selector , '...').

    Parser parseErrorSignal handle:[:ex |

        errorEncountered := true.

    ] do:[

        f := JavaScriptCompiler

            compile:code

            forClass:nil

            inCategory:nil

            notifying:nil.

        errorEncountered := (f == #Error).

    ].

    expectedError == #ParseError ifTrue:[

        self assert:(errorEncountered).

        ^ self

    ].

    self assert:(errorEncountered not).

    self assert:(f notNil).

    f decompileTo:Transcript.

    self 

        should:[f valueWithReceiver:receiver arguments:arguments]

        raise:expectedError

! !

!JavaScriptTests methodsFor:'tests'!

testArray01

    self 

        execute:'test(arr) {

                    return arr[1];

                 }'

        for:nil

        arguments:#( #(10 20 30) )

        expect:10

    "

     self run:#testArray01

     self new testArray01  

    "

!

testArray02

    self 

        execute:'test(arr) {

                    arr[1];

                 }'

        for:nil

        arguments:#( #(10 20 30) )

        expect:nil

    "

     self run:#testArray02

     self new testArray02  

    "

    "Modified: / 21-02-2007 / 13:02:39 / cg"

!

testArray03

    self 

        execute:'test(arr, val) {

                    arr[1] = val;

                    return arr;

                 }'

        for:nil

        arguments:#( #(10 20 30) 99 )

        expect:#(99 20 30)

    "

     self run:#testArray03

     self new testArray03  

    "

!

testArray04

    self 

        execute:'test() {

                    var arr = new Array;

                    return arr;

                 }'

        for:nil

        arguments:#(  )

        expect:#()

    "

     self run:#testArray04

     self new testArray04  

    "

    "Modified: / 21-02-2007 / 13:03:22 / cg"

!

testArray04a

    self 

        execute:'test() {

                    var arr = new Array;

                    return arr;

                 }'

        for:nil

        arguments:#(  )

        expect:#()

    "

     self run:#testArray04a

     self new testArray04a  

    "

    "Created: / 21-02-2007 / 13:03:39 / cg"

!

testArray04b

    self 

        execute:'test() {

                    var arr = Array.new;

                    return arr;

                 }'

        for:nil

        arguments:#(  )

        expect:#()

    "

     self run:#testArray04b

     self new testArray04b  

    "

    "Created: / 21-02-2007 / 13:03:48 / cg"

!

testArray04c

    self 

        execute:'test() {

                    var arr = Array.new();

                    return arr;

                 }'

        for:nil

        arguments:#(  )

        expect:#()

    "

     self run:#testArray04c

     self new testArray04c  

    "

    "Created: / 21-02-2007 / 13:04:00 / cg"

!

testArray04d

    self 

        execute:'test() {

                    var arr = new Array();

                    return arr;

                 }'

        for:nil

        arguments:#(  )

        expect:#()

    "

     self run:#testArray04d

     self new testArray04d 

    "

    "Created: / 21-02-2007 / 13:04:25 / cg"

!

testArray06a

    self 

        execute:'test() {

                    var arr = new Array(5);

                    return arr;

                 }'

        for:nil

        arguments:#(  )

        expect:#( nil nil nil nil nil )

    "

     self run:#testArray06a

     self new testArray06a 

    "

    "Created: / 21-02-2007 / 13:04:52 / cg"

!

testArray06b

    self 

        execute:'test() {

                    var arr = Array.new(5);

                    return arr;

                 }'

        for:nil

        arguments:#(  )

        expect:#( nil nil nil nil nil )

    "

     self run:#testArray06b

     self new testArray06b 

    "

    "Created: / 21-02-2007 / 13:05:08 / cg"

!

testArray07

    self 

        execute:'test() {

                    var arr = new Array(3);

                    arr[1] = 41;    

                    arr[2] = -5;    

                    arr[3] = 20;    

                    return arr;

                 }'

        for:nil

        arguments:#()

        expect:#( 41 -5 20 ).

    "

     self run:#testArray07

     self new testArray07 

    "

!

testArray08

    self 

        execute:'test() {

                    var arr = new Array(3);

                    arr[1] = 41;    

                    arr[2] = -5;    

                    arr[3] = 20;    

                    return arr;

                 }'

        for:nil

        arguments:#(  )

        expect:#( 41 -5 20 )

    "

     self run:#testArray08

     self new testArray08 

    "

!

testArray09

    self 

        execute:'test() {

                    var arr = [1,2,3];

                    return arr;

                 }'

        for:nil

        arguments:#(  )

        expect:#( 1 2 3 )

    "

     self run:#testArray09

     self new testArray09 

    "

    "Created: / 21-02-2007 / 13:05:48 / cg"

!

testComments01

    self 

        execute:'

                  testComments() {

                      // Unicode is allowed in comments

                      // This is a comment \u0410\u0406\u0414\u0419

                      /* Another comment \u05D0\u2136\u05d3\u05d7 */

                      /**/ // Tiny comment

                      /***/ // Also valid

                      // Need to test string literals and identifiers

                      println("All is well");

                      return null;

                  }

                 '

        for:JavaScriptEnvironment new

        arguments:#(  )

        expect:nil

    "

     self run:#testComments01

     self new testComments01  

    "

!

testConditionalExpression01

    self 

        execute:'max(a, b) {

                    return (a > b) ? a : b;

                 }'

        for:nil

        arguments:#(10 20)

        expect:20

    "

     self run:#testConditionalExpression01

     self new testConditionalExpression01

    "

!

testConditionalExpression02

    self 

        execute:'max(a, b) {

                    return (a < b) ? a : b;

                 }'

        for:nil

        arguments:#(10 20)

        expect:10

    "

     self run:#testConditionalExpression02

     self new testConditionalExpression02

    "

!

testDoWhile01

    self 

        execute:'test(arg) {

                    var n;

                    n = 1;

                    do {

                        Transcript.showCR(n);

                    } while (++n <= 3);

                    return n;

                 }'

        for:nil

        arguments:#(5)

        expect:4

    "

     self run:#testDoWhile01

     self new testDoWhile01

    "

!

testDoWhile02

    self 

        execute:'test(arg) {

                    var n;

                    n = 1;

                    do {

                        Transcript.showCR(n);

                        break;

                    } while (true);

                    return n;

                 }'

        for:nil

        arguments:#(5)

        expect:1

    "

     self run:#testDoWhile02

     self new testDoWhile02

    "

!

testDoWhile03

    self 

        execute:'test(arg) {

                    var n;

                    n = 1;

                    do {

                        break;

                        Transcript.showCR(n);

                    } while (true);

                    return n;

                 }'

        for:nil

        arguments:#(5)

        expect:1

    "

     self run:#testDoWhile03

     self new testDoWhile03

    "

!

testDoWhile04

    self 

        execute:'test(arg) {

                    var n;

                    n = 1;

                    do {

                        if (++n == 3) continue;

                        Transcript.showCR(n);

                    } while (n <= 4);

                    return n;

                 }'

        for:nil