compiler/tests/PPCNodeFirstFollowNextTests.st
changeset 535 a8feb0f47574
parent 534 a949c4fe44df
child 537 fb212e14d1f4
--- a/compiler/tests/PPCNodeFirstFollowNextTests.st	Sat Aug 29 07:56:14 2015 +0100
+++ b/compiler/tests/PPCNodeFirstFollowNextTests.st	Fri Sep 04 14:06:56 2015 +0100
@@ -164,7 +164,7 @@
 !
 
 testFirstNegate1
-    configuration context options specialize: true.
+    configuration removePass: PPCSpecializingVisitor.
     tree := self treeFrom: ('a' asParser negate, 'b' asParser).
     
     first := self first: tree.
@@ -173,7 +173,7 @@
     self assert: first anyMatchesType: PPCNotNode.
     self assert: first anyOne child literal = 'a'.
 
-    "Modified: / 28-08-2015 / 14:18:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-09-2015 / 14:55:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 testFirstNot
@@ -187,7 +187,7 @@
 !
 
 testFirstNot2
-    configuration context options specialize: true.
+    configuration removePass: PPCSpecializingVisitor.
     tree := self treeFrom: (#letter asParser not star, #letter asParser).
     
     first := self first: tree.
@@ -196,7 +196,7 @@
     self assert: first anyMatchesType: PPCNotNode.
     self assert: first anyMatchesType: PPCPredicateNode.
 
-    "Modified: / 28-08-2015 / 14:18:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-09-2015 / 14:55:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 testFirstNot4
@@ -329,13 +329,13 @@
 !
 
 testFirstSequence6
-    configuration context options specialize: true.
+    configuration removePass: PPCSpecializingVisitor.
     tree := self treeFrom: #space asParser star, 'a' asParser.
     
     tree firstFollowCache: nil.
     self should: [ self first: tree. ] raise: Exception.
 
-    "Modified: / 28-08-2015 / 14:18:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-09-2015 / 14:55:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 testFirstSequence7
@@ -359,7 +359,6 @@
 !
 
 testFirstStarMessagePredicate2
-    configuration context options specialize: true.
     tree := self treeFrom: #space asParser star.
     
     first := self first: tree.
@@ -368,11 +367,10 @@
     self assert: first anyMatchesType: PPCMessagePredicateNode.
     self assert: first anyMatchesType: PPCSentinelNode.
 
-    "Modified: / 28-08-2015 / 14:18:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-09-2015 / 15:00:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 testFirstTerminal
-    configuration context options specialize: true.
     tree := self treeFrom: 'a' asParser not.
 
     first := self first: tree.
@@ -380,7 +378,7 @@
     self assert: first size: 1.
     self assert: (self first: tree) anyMatchesType: PPCNotLiteralNode.
 
-    "Modified: / 28-08-2015 / 14:18:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-09-2015 / 15:00:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 testFirstTerminal2
@@ -669,7 +667,7 @@
 
 testFollowTrimmingToken
     | token1 token2 |
-    configuration context options specialize: false.
+    configuration removePass: PPCSpecializingVisitor.
     token1 := #letter asParser plus trimmingToken name: 'token1'; yourself.
     token2 := #letter asParser plus trimmingToken name: 'token2'; yourself.
     
@@ -682,7 +680,7 @@
     self assert: followSet size: 1.
     self assert: followSet anyMatchesType: PPCTrimmingTokenNode.
 
-    "Modified: / 28-08-2015 / 14:18:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-09-2015 / 14:55:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !PPCNodeFirstFollowNextTests class methodsFor:'documentation'!