"{ Package: 'stx:libjava/tools' }"

PPCompositeParserTest subclass:#JavaSourcePartitionerTests

	instanceVariableNames:'partitioner'

	classVariableNames:''

	poolDictionaries:''

	category:'Languages-Java-Tests-Parser'

!

!JavaSourcePartitionerTests methodsFor:'accessing'!

parserClass

        ^ JavaSourcePartitioner

    "Modified: / 11-01-2013 / 12:18:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!JavaSourcePartitionerTests methodsFor:'parsing'!

parse: aString rule: aSymbol

        | production |

        partitioner := production := self parserInstance.

        aSymbol = #start

                ifFalse: [ production := production productionAt: aSymbol ].

        result :=production parse: (JavaScanner for: aString).

        self

                deny: result isPetitFailure

                description: 'Unable to parse ' , aString printString

                resumable: true.

        ^ result

    "Created: / 11-01-2013 / 12:21:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!JavaSourcePartitionerTests methodsFor:'tests'!

test_01

    self parse: '

class X {

    public int foo() {

        return 10;

    }

}

    '

    "Created: / 11-01-2013 / 12:16:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!JavaSourcePartitionerTests class methodsFor:'documentation'!

version_HG

    ^ '$Changeset: <not expanded> $'

! !