A couple of tests for lexical lookup/binding in an inner block.

Raku · May 12, 2012 · b505a99 · b505a99
1 parent 68f99e6
commit b505a99
Showing 1 changed file with 42 additions and 1 deletion.
diff --git a/t/qast/qast.t b/t/qast/qast.t
@@ -1,6 +1,6 @@
 use QRegex;
 
-plan(35);
+plan(37);
 
 # Following a test infrastructure.
 sub compile_qast($qast) {
@@ -418,3 +418,44 @@ is_qast(
     ),
     302,
     'callmethod with two args, name is computed');
+
+is_qast(
+    QAST::Block.new(
+        QAST::Op.new(
+            :op('bind'),
+            QAST::Var.new( :name('$x'), :scope('lexical'), :decl('var') ),
+            QAST::WVal.new( :value(B) )
+        ),
+        QAST::Block.new(
+            :blocktype('immediate'),
+            QAST::Op.new(
+                :op('callmethod'), :name('m'),
+                QAST::Var.new( :name('$x'), :scope('lexical') )
+            )
+        )
+    ),
+    'b',
+    'lexical lookup in a nested block');
+
+is_qast(
+    QAST::Block.new(
+        QAST::Op.new(
+            :op('bind'),
+            QAST::Var.new( :name('$x'), :scope('lexical'), :decl('var') ),
+            QAST::WVal.new( :value(B) )
+        ),
+        QAST::Block.new(
+            :blocktype('immediate'),
+            QAST::Op.new(
+                :op('bind'),
+                QAST::Var.new( :name('$x'), :scope('lexical') ),
+                QAST::WVal.new( :value(A) )
+            )
+        ),
+        QAST::Op.new(
+            :op('callmethod'), :name('m'),
+            QAST::Var.new( :name('$x'), :scope('lexical') )
+        )
+    ),
+    'a',
+    'lexical binding in a nested block');