add test for :context<void> when calling p5 functions

Raku · Oct 16, 2011 · cab8084 · cab8084
1 parent ddc1d53
commit cab8084
Showing 1 changed file with 18 additions and 0 deletions.
diff --git a/S01-perl-5-integration/context.t b/S01-perl-5-integration/context.t
@@ -0,0 +1,18 @@
+use v6;
+use Test;
+my &p5_void := eval(
+    'sub {
+        if (defined(wantarray)) {
+            $::got_void = 0;
+        } else {
+            $::got_void = 1;
+        }
+}',:lang<perl5>);
+p5_void(:context<void>);
+is(eval(:lang<perl5>,'$::got_void'),1,":contex<void> sets voidcontext");
+p5_void(:context<scalar>);
+is(eval(:lang<perl5>,'$::got_void'),0,":contex<scalar> dosn't set voidcontext");
+p5_void(:context<list>);
+is(eval(:lang<perl5>,'$::got_void'),0,":contex<list> dosn't sets voidcontext");
+done;
+# vim: ft=perl6