Test QAST::BVal node.

Raku · May 12, 2012 · 0147855 · 0147855
1 parent efa345e
commit 0147855
Showing 1 changed file with 13 additions and 1 deletion.
diff --git a/t/qast/qast.t b/t/qast/qast.t
@@ -1,6 +1,6 @@
 use QRegex;
 
-plan(34);
+plan(35);
 
 # Following a test infrastructure.
 sub compile_qast($qast) {
@@ -64,6 +64,18 @@ test_qast_result(
         ok($r.m eq 'a', 'WVal node');
     });
 
+my $block := QAST::Block.new( QAST::IVal.new( :value(666) ) );
+is_qast(
+    QAST::Block.new(
+        $block,
+        QAST::Op.new(
+            :op('call'),
+            QAST::BVal.new( :value($block) )
+        )
+    ),
+    666,
+    'BVal node');
+
 is_qast(
     QAST::Block.new(
         QAST::Op.new(