Turns out we have enough in place to pass 21-contextual.t too. :-)

jnthn · Oct 19, 2010 · 4d3bf73 · 4d3bf73
1 parent e6de8a1
commit 4d3bf73
Showing 1 changed file with 28 additions and 0 deletions.
diff --git a/t/nqp/21-contextual.t b/t/nqp/21-contextual.t
@@ -0,0 +1,28 @@
+#! nqp
+
+# Tests for contextual variables
+
+plan(6);
+
+sub foo() { $*VAR }
+
+{
+    my $*VAR := 'abc';
+    ok($*VAR eq 'abc', 'basic contextual declaration works');
+    ok(foo() eq 'abc', 'called subroutine sees caller $*VAR');
+
+    sub bar() { $*VAR }
+
+    ok(bar() eq 'abc', 'called subroutine sees caller $*VAR');
+
+
+
+    {
+        my $*VAR := 'def';
+        ok( $*VAR eq 'def', 'basic nested contextual works');
+        ok( foo() eq 'def', 'called subroutine sees caller $*VAR');
+        ok( bar() eq 'def', 'called subroutine sees caller not outer');
+    }
+}
+
+