Add a test for QAST::VM.new( parrot => ... ).

Raku · Jun 30, 2012 · 7be3296 · 7be3296
1 parent f108c28
commit 7be3296
Showing 1 changed file with 12 additions and 2 deletions.
diff --git a/t/qast/qast.t b/t/qast/qast.t
@@ -1,6 +1,6 @@
 use QAST;
 
-plan(63);
+plan(64);
 
 # Following a test infrastructure.
 sub compile_qast($qast) {
@@ -918,4 +918,14 @@ test_qast_result(
         ok(SCTest.pre, 'pre-deserialize OK');
         ok(SCTest.post, 'post-deserialize OK');
         ok(SCTest.main, 'mainline OK');
-    });
+    });
+
+is_qast(
+    QAST::Block.new(
+        QAST::VM.new(
+            parrot => QAST::IVal.new( :value(42) ),
+            unknown => QAST::IVal.new( :value(69) )
+        )
+    ),
+    42,
+    'QAST::VM picks parrot alternative and ignores others');