"{ Package: 'ctu:dart/compiler/tests' }"

"{ NameSpace: Dart }"

TestCase subclass:#ScannerTests
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'Languages-Dart-Parser-Tests'
!


!ScannerTests methodsFor:'tests'!

test_01

    self assert:
        (Dart::Scanner scan: 'import ''dart:html''; void main() { }') asArray
            = #(#import #String $; #void #Identifier $( $) ${ $} )

    "Created: / 11-01-2013 / 12:53:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    "Modified: / 04-11-2014 / 00:17:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

test_02

    self assert:
        (Dart::Scanner scan: 'a |= 1') asArray
            = #(#Identifier #'|=' #Integer)

    "Created: / 11-01-2013 / 15:46:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    "Modified: / 04-11-2014 / 00:17:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!ScannerTests class methodsFor:'documentation'!

version_HG

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