--- a/compiler/tests/PPCCodeGeneratorTest.st Tue Jun 02 17:25:57 2015 +0100
+++ b/compiler/tests/PPCCodeGeneratorTest.st Wed Jun 03 06:23:49 2015 +0100
@@ -422,6 +422,25 @@
self assert: parser fail: 'boo'.
!
+testMappedActionNode1
+ node := ((#letter asParser , #letter asParser)
+ map:[:a :b | String with:a with:b ]) asCompilerTree.
+ self compileTree:node.
+ self
+ assert:parser
+ parse:'ab'
+ to:'ab'.
+ self
+ assert:parser
+ parse:'cz'
+ to:'cz'.
+ self assert:parser fail:''.
+ self assert:parser fail:'asd'.
+
+ "Created: / 02-06-2015 / 17:04:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 03-06-2015 / 06:10:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
testMessagePredicate
| messageNode |
messageNode := PPCMessagePredicateNode new