test for calling p5 subs from perl6

Raku · Oct 20, 2011 · 7dd36e1 · 7dd36e1
1 parent 340ff7d
commit 7dd36e1
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/S01-perl-5-integration/subs.t b/S01-perl-5-integration/subs.t
@@ -0,0 +1,4 @@
+use v6;
+use Test;
+my &foo := eval('sub foo {432}',:lang<perl5>);
+is foo(),432,"calling subs works";