compiler/tests/PPCOverlappingTokensTest.st
changeset 542 bb97dcbe2359
parent 538 16e8536f5cfb
--- 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