"{ Package: 'exept:regression' }"

"{ NameSpace: RegressionTests }"

TestCase subclass:#JavaScriptTests

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'tests-Regression-Compilers'

!

!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 class methodsFor:'queries'!

coveredClassNames

    ^ #( 

        JavaScriptParser 

        JavaScriptScanner 

        JavaScriptCompiler 

        )

! !

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

        ].

    ]

!

doTestEachFunctionFromSpec:spec 

    spec do:[:tuple | 

        |source expectError|

        source := tuple first.

        expectError := tuple second.

        expectError ifTrue:[

            self 

                should:[ JavaScriptParser parseFunction:source ]

                raise:Error

        ] ifFalse:[

            JavaScriptParser parseFunction:source.

        ].

    ]

!

execute:code for:receiver arguments:arguments

    |parser f result|

    "/ First, validate the tree

    parser := JavaScriptParser parseMethod: code in: nil.

    self assert: parser tree notNil.

    JavaScriptParseNodeValidator validate: parser tree source: code.

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

    f := JavaScriptCompiler

        compile:code

        forClass:(receiver class)

        inCategory:nil

        notifying:nil

        install:false.

"/ f inspect.

    self assert:(f ~~ #Error).

    self assert:(f notNil).

"/    f decompileTo:Transcript.

    result := f valueWithReceiver:receiver arguments:arguments.    

    ^ result

    "Modified: / 09-10-2011 / 11:41:51 / cg"

    "Modified (format): / 20-09-2013 / 11:56:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

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

    |result|

    result := self execute:code for: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:(receiver class)

            inCategory:nil

            notifying:nil

            install:false.

        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

    "Modified: / 09-10-2011 / 11:41:57 / cg"

!

outputToTranscriptOf:aBlock

    "yes, globals are bad - that's what we need stuff like this for..."

    |output|

    output := '' writeStream.

    self withTranscriptRedirectedTo:output do:aBlock.

    ^ output contents

!

setUp

    JavaScriptCompiler isNil ifTrue:[

        Smalltalk loadPackage:'stx:libjavascript'.

        JavaScriptParseNodeValidator autoload.

    ].

    "Created: / 09-08-2011 / 23:12:13 / cg"

    "Modified: / 20-09-2013 / 11:58:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

withTranscriptRedirectedTo:aStream do:aBlock

    "yes, globals are bad - that's what we need stuff like this for..."

    |savedTranscript|

    savedTranscript := Transcript.

    [

        Transcript := aStream.

        aBlock value.

    ] ensure:[

        Transcript := savedTranscript

    ].

! !

!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

        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"

!

testAssignmentExpression01

    self 

        execute:'assign(a, b) {

                    var x, y;

                    x = y = 0;

                    x = y = a;

                    x = y = b;

                    return (x + y);

                 }'

        for:nil

        arguments:#(10 20)

        expect:40

    "

     self run:#testAssignmentExpression01

     self new testAssignmentExpression01

    "

!

testAssignmentExpression02

    "yes, in JS you can change an argument variable"

    self 

        execute:'assign(a, b) {

                    var x, y;

                    a = x = y = 0;

                    return (a + b);

                 }'

        for:nil

        arguments:#(10 20)

        expect:20

    "

     self run:#testAssignmentExpression02

     self new testAssignmentExpression02

    "

!

testCommaExpression01

    self 

        execute:'comma(a, b, c) {

                    return (a , b , c);

                 }'

        for:nil

        arguments:#(10 20 30)

        expect:30

    "

     self run:#testCommaExpression01

     self new testCommaExpression01

    "

!

testCommaExpression02

    self