"{ Package: 'exept:regression' }"

"{ NameSpace: RegressionTests }"

TestCase subclass:#JavaScriptTests

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'Languages-JavaScript-Compiling & Parsing'

!

!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).

        ].

    ]

!

execute:code for:receiver arguments:arguments expect:expectedResult

    |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|

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

    f := JavaScriptCompiler

        compile:code

        forClass:nil

        inCategory:nil

        notifying:nil.

    expectedError == #ParseError ifTrue:[

        self assert:(f == #Error).

        ^ self

    ].

    self assert:(f ~~ #Error).

    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  

    "

!

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  

    "

!

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

        arguments:#(5)

        expect:5

    "

     self run:#testDoWhile04

     self new testDoWhile04

    "

!

testDoWhile05

    self 

        execute:'test(arg) {

                    var n;

                    n = 1;

                    do {

                        if (++n == 3) break;

                        Transcript.showCR(n);

                    } while (n <= 4);

                    return n;

                 }'

        for:nil

        arguments:#(5)

        expect:3

    "

     self run:#testDoWhile05

     self new testDoWhile05

    "

!

testFor01

    self 

        execute:'test(arg) {

                    var n;

                    for (n = 0; n < 10; n++) {

                        Transcript.show("hello ");

                        Transcript.showCR(n);

                    }

                 }'

        for:nil

        arguments:#(5)

        expect:nil

    "

     self run:#testFor01

     self new testFor01  

    "

!

testFor01b

    |outStream output|

    outStream := '' writeStream.

    self 

        execute:'test(arg, out) {

                    var n;

                    for (n = 0; n < arg; n++) {

                        out.show("hello ");

                        out.showCR(n);

                    }

                 }'

        for:nil

        arguments:(Array with:4 with:outStream)

        expect:nil.

    output := outStream contents.

    self assert:(output = 'hello 0

hello 1

hello 2

hello 3

').

    "

     self run:#testFor01b

     self new testFor01b  

    "

!

testFor01c

    self 

        execute:'test(arg) {

                    var n, m;

                    for (n = 0, m = 10; n < 10; n++, m--) {

                        Transcript.show(n);

                        Transcript.show(" -> ");

                        Transcript.showCR(m);

                    }

                 }'

        for:nil

        arguments:#(5)

        expect:nil

    "

     self run:#testFor01c

     self new testFor01c  

    "

!

testFor02

    |outStream output|

    outStream := '' writeStream.

    self 

        execute:'test(arg, out) {

                    var n;

                    for (n = 0; n < arg; n++) {

                        out.show("hello ");

                        out.showCR(n);

                    }

                 }'

        for:nil

        arguments:(Array with:4 with:outStream)

        expect:nil.

    output := outStream contents.

    self assert:(output = 'hello 0

hello 1

hello 2

hello 3

').

    "

     self run:#testFor02

     self new testFor02  

    "

!

testFor02b

    |outStream output|

    outStream := '' writeStream.

    self 

        execute:'test(arg, out) {

                    var n;

                    for (n = 0; n < arg; ) {

                        out.show("hello ");

                        out.showCR(n++);

                    }

                 }'

        for:nil

        arguments:(Array with:4 with:outStream)

        expect:nil.

    output := outStream contents.

    self assert:(output = 'hello 0

hello 1

hello 2

hello 3

').

    "

     self run:#testFor02b

     self new testFor02b  

    "

!

testFor03b

    |outStream output|

    outStream := '' writeStream.

    self 

        execute:'test(arg, out) {

                    var n = 0;

                    for (; n < arg; ) {

                        out.show("hello ");

                        out.showCR(n++);

                    }

                 }'

        for:nil

        arguments:(Array with:4 with:outStream)

        expect:nil.

    output := outStream contents.

    self assert:(output = 'hello 0

hello 1

hello 2

hello 3

').

    "

     self run:#testFor03b

     self new testFor03b  

    "

!

testFor04b

    |outStream output|

    outStream := '' writeStream.

    self 

        execute:'test(arg, out) {

                    var n = 0;