"{ Package: 'stx:goodies/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 selector:nil search:nil sender:nil.

    ^ 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

	arguments:#( #(10 20 30) 99 ) deepCopy      "deepCopy - this is immutable"

	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

    "

!