"

 COPYRIGHT (c) Claus Gittinger / eXept Software AG

 COPYRIGHT (c) 2016 Jan Vrany

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:goodies/regression' }"

"{ NameSpace: RegressionTests }"

TestCase subclass:#JavaScriptTests

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'tests-Regression-Compilers'

!

!JavaScriptTests class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) Claus Gittinger / eXept Software AG

 COPYRIGHT (c) 2016 Jan Vrany

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

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