--- 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'!