Test that contextuals are not implemented as globals.

Raku · Dec 22, 2012 · 3370a7d · 3370a7d
1 parent 6d4973f
commit 3370a7d
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/t/nqp/21-contextual.t b/t/nqp/21-contextual.t
@@ -2,7 +2,7 @@
 
 # Tests for contextual variables
 
-plan(6);
+plan(7);
 
 sub foo() { $*VAR }
 
@@ -23,6 +23,8 @@ sub foo() { $*VAR }
         ok( foo() eq 'def', 'called subroutine sees caller $*VAR');
         ok( bar() eq 'def', 'called subroutine sees caller not outer');
     }
+
+    ok($*VAR eq 'abc', 'nested contextuals don\'t affect outer ones');
 }