Permalink
Browse files

Test QAST::BVal node.

  • Loading branch information...
1 parent efa345e commit 014785556883b2074a1ab10ef1ae70c5d49edae0 @jnthn jnthn committed May 12, 2012
Showing with 13 additions and 1 deletion.
  1. +13 −1 t/qast/qast.t
View
@@ -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(

0 comments on commit 0147855

Please sign in to comment.