--- a/compiler/tests/extras/PPCSmalltalkTests.st Mon Sep 07 08:20:46 2015 +0100
+++ b/compiler/tests/extras/PPCSmalltalkTests.st Mon Sep 07 11:53:38 2015 +0100
@@ -3,7 +3,7 @@
"{ NameSpace: Smalltalk }"
TestCase subclass:#PPCSmalltalkTests
- instanceVariableNames:'compiler options result'
+ instanceVariableNames:'compiler result'
classVariableNames:''
poolDictionaries:''
category:'PetitCompiler-Extras-Tests-Smalltalk'
@@ -17,27 +17,25 @@
!
setUp
- options := PPCArguments default
- profile: true;
- yourself.
-
- compiler := PPCTokenizingConfiguration new
- options: options;
- yourself.
+ compiler := PPCCompiler newWithOptions: #(profile: true)
+
+ "Modified: / 07-09-2015 / 11:10:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
testSmalltakToken
| token1 |
- token1 := 'a' asParser smalltalkToken compileUsingCompiler:compiler.
+ token1 := compiler compile: 'a' asParser smalltalkToken.
self assert: ((token1 parse: 'a') class == PPSmalltalkToken).
self assert: (token1 parse: '"comment" a "another comment"') inputValue = 'a'
+
+ "Modified: / 07-09-2015 / 12:36:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
testSmalltakToken2
| parser compiled |
parser := 'a' asParser smalltalkToken, 'b' asParser smalltalkToken.
- compiled := parser compileUsingCompiler:compiler.
+ compiled := compiler compile: parser.
self assert: compiled parse: 'ab'.
self assert: compiled parse: '"comment" a "another comment" b '.