--- a/compiler/tests/PPCOverlappingTokensTest.st Tue Sep 08 01:31:37 2015 +0100
+++ b/compiler/tests/PPCOverlappingTokensTest.st Tue Sep 08 02:06:11 2015 +0100
@@ -87,7 +87,9 @@
!
testOverlappingSmalltalkLike2
- <skip> "/ JK: please remove this once fixed...
+ ((Smalltalk respondsTo:#isSmalltalkX) and:[ Smalltalk isSmalltalkX ]) ifTrue:[
+ self skipIf: true description: 'JK, remove this once fixed'.
+ ].
p := (keywordToken, idToken) star, idToken, assignmentToken, idToken.
self compile: p.
@@ -103,7 +105,7 @@
"skip for simple tokenizer"
self assert: context tokenReadCount == 2 description: 'too many token reads?'.
- "Modified: / 17-08-2015 / 22:35:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 08-09-2015 / 01:52:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
testOverlappingToken
@@ -140,7 +142,9 @@
!
testOverlappingTokenStar
- <skip> "/ JK: please remove this once fixed...
+ ((Smalltalk respondsTo:#isSmalltalkX) and:[ Smalltalk isSmalltalkX ]) ifTrue:[
+ self skipIf: true description: 'JK, remove this once fixed'.
+ ].
p := (fooToken ==> [ :e | #foo ]) / (idToken ==> [:e | #id ]).
self compile: p star.
@@ -155,11 +159,13 @@
"skip for simple tokenizer"
self assert: context tokenReadCount == 1 description: 'too many token reads?'.
- "Modified: / 17-08-2015 / 22:35:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 08-09-2015 / 01:53:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
testOverlappingTokenStar2
- <skip> "/ JK: please remove this once fixed...
+ ((Smalltalk respondsTo:#isSmalltalkX) and:[ Smalltalk isSmalltalkX ]) ifTrue:[
+ self skipIf: true description: 'JK, remove this once fixed'.
+ ].
p := (fooToken / idToken).
self compile: p star.
@@ -174,7 +180,7 @@
"skip for simple tokenizer"
self assert: context tokenReadCount == 1 description: 'too many token reads?'.
- "Modified: / 17-08-2015 / 22:35:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 08-09-2015 / 01:53:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
testSanityAsignment