--- a/compiler/tests/extras/PPCSmalltalkTests.st Mon Aug 17 12:13:16 2015 +0100
+++ b/compiler/tests/extras/PPCSmalltalkTests.st Mon Aug 24 15:34:14 2015 +0100
@@ -3,7 +3,7 @@
"{ NameSpace: Smalltalk }"
TestCase subclass:#PPCSmalltalkTests
- instanceVariableNames:'configuration arguments'
+ instanceVariableNames:'configuration arguments result'
classVariableNames:''
poolDictionaries:''
category:'PetitCompiler-Extras-Tests-Smalltalk'
@@ -11,14 +11,9 @@
!PPCSmalltalkTests methodsFor:'as yet unclassified'!
-configuration
- arguments := PPCArguments default
- profile: true;
- yourself.
-
- ^ PPCTokenizingConfiguration new
- arguments: arguments;
- yourself.
+assert: parser parse: input
+ result := parser parse: input.
+ self assert: result isPetitFailure not.
!
setUp
@@ -33,13 +28,25 @@
testSmalltakToken
| token1 |
- configuration := self configuration.
token1 := 'a' asParser smalltalkToken compileWithConfiguration: configuration.
self assert: ((token1 parse: 'a') class == PPSmalltalkToken).
self assert: (token1 parse: '"comment" a "another comment"') inputValue = 'a'
!
+testSmalltakToken2
+ | parser compiled |
+ parser := 'a' asParser smalltalkToken, 'b' asParser smalltalkToken.
+ compiled := parser compileWithConfiguration: configuration.
+
+ self assert: compiled parse: 'ab'.
+ self assert: compiled parse: '"comment" a "another comment" b '.
+ self assert: result size = 2.
+ self assert: result first inputValue = 'a'.
+ self assert: result second inputValue = 'b'.
+
+!
+
testSmalltakWhitespace
| ws1 ws2 |
ws1 := PPSmalltalkWhitespaceParser new.