basic test for calling p5 subs

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