"{ Package: 'jv:dart/compiler' }"

"{ NameSpace: Dart }"

PPCompositeParserTest subclass:#ParserTests
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'Languages-Dart-Parser-Tests'
!


!ParserTests methodsFor:'accessing'!

parserClass
        ^ Dart::Parser

    "Modified: / 11-01-2013 / 13:14:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!ParserTests methodsFor:'parsing'!

fail: aString rule: aSymbol 

    ^super fail: (Dart::Scanner for: aString) rule: aSymbol

    "Created: / 14-03-2012 / 22:51:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    "Modified: / 11-01-2013 / 13:28:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

parse: aString rule: aSymbol
        | production |
        production := self parserInstance.
        aSymbol = #start ifFalse: [ 
                production := production productionAt: aSymbol.
                production := production , (Dart::Parser::TokenParser for: #EOF).
        ].

        result := production parse: (Dart::Scanner for: aString).
        self 
            assert: result isPetitFailure not
            description: 'Unable to parse ' , aString printString.

        ^ result

    "Created: / 14-03-2012 / 22:51:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    "Modified: / 11-01-2013 / 15:35:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!ParserTests methodsFor:'tests - expressions'!

test_expression_01

    self parse:'1 + 1' rule: #expression

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

test_expression_02

    self parse:'a.foo()' rule: #expression

    "Created: / 11-01-2013 / 15:19:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

test_expression_04

    self parse:'new Foo()' rule: #expression

    "Created: / 11-01-2013 / 15:38:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!ParserTests methodsFor:'tests - literals'!

test_literal_01

    self parse: '1' rule: #literal.
    self parse: '1.0' rule: #literal.
    self parse: 'true' rule: #literal.
    self parse: 'false' rule: #literal.
    self parse: 'null' rule: #literal.

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

!ParserTests methodsFor:'tests - misc'!

test_misc_01

    self parse:'=' rule: #assignmentOperator

    "Created: / 11-01-2013 / 15:49:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!ParserTests methodsFor:'tests - smoke'!

test_smoke_01
    self parse: 'import ''dart:html'';

void main() {

}'

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

test_smoke_01a
    self parse: 'void main() { }'

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

test_smoke_02
    self parse: '

void main() {
    var a = 1 + 1;

}'

    "Created: / 11-01-2013 / 13:30:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    "Modified: / 11-01-2013 / 15:07:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

test_smoke_03
    self parse: '

class Test {
  void foo() {
    print("Foo");
  }
}

void main() {1
  1 = 1 + 1;
  Test foo = new Test();
  foo.foo();  
}'

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

!ParserTests methodsFor:'tests - statements'!

test_statement_01

    self parse:'a = 1;' rule: #statement

    "Created: / 11-01-2013 / 15:40:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

test_statement_02

    self parse:'return 1;' rule: #statement

    "Created: / 11-01-2013 / 15:44:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!ParserTests class methodsFor:'documentation'!

version_HG

    ^ '$Changeset: <not expanded> $'
! !