"{ Package: 'stx:goodies/petitparser/compiler/tests/extras' }"

"{ NameSpace: Smalltalk }"

PPAbstractParserTest subclass:#PPCCompiledJavaVerificationTest

	instanceVariableNames:'parser result context resource fileResources'

	classVariableNames:''

	poolDictionaries:''

	category:'PetitCompiler-Extras-Tests-Java'

!

!PPCCompiledJavaVerificationTest class methodsFor:'as yet unclassified'!

resources

    ^ (OrderedCollection with: PPCompiledJavaResource with: PPCResources)

        addAll: super resources;

        yourself

! !

!PPCCompiledJavaVerificationTest methodsFor:'accessing'!

compiledJavaSyntax

    ^ (Smalltalk at: #PPCompiledJavaSyntax) new

!

context	

    ^ context := PPCProfilingContext new

!

javaSyntax

    ^ PPJavaSyntax new

! !

!PPCCompiledJavaVerificationTest methodsFor:'setup'!

setUp

    super setUp.

    fileResources := (self resources detect: [:e | e = PPCResources ]) current.

! !

!PPCCompiledJavaVerificationTest methodsFor:'tests'!

testJava

    | compiledParser normalParser |

    normalParser := self javaSyntax.

    compiledParser := self compiledJavaSyntax.

    fileResources javaSourcesBig do: [ :source |

        result := normalParser parse: source.

        result isPetitFailure not ifTrue: [ 

            self assert: (compiledParser parse: source withContext: self context)

                  equals: result

        ]

    ].

!

testJavaMath

    | compiledParser normalParser source |

    normalParser := self javaSyntax.

    source := fileResources javaLangMath.

    result := normalParser parse: source.

    result isPetitFailure not ifTrue: [ 

        compiledParser := self compiledJavaSyntax.

        self assert: (compiledParser parse: source withContext: self context)

              equals: result

    ]

!

testJavaTimer

    | compiledParser normalParser source |

    normalParser := self javaSyntax.

    source := fileResources javaUtilTimer.

    result := normalParser parse: source.

    result isPetitFailure not ifTrue: [ 

        compiledParser := self compiledJavaSyntax.

        self assert: (compiledParser parse: source withContext: self context)

              equals: result

    ]

! !