update foreign tests

[p5sagit/Function-Parameters.git] / t / foreign / Method-Signatures / larna.t

diff --git a/t/foreign/Method-Signatures/larna.t b/t/foreign/Method-Signatures/larna.t
index d9ec96a..0cc8eb3 100644 (file)
--- a/t/foreign/Method-Signatures/larna.t
+++ b/t/foreign/Method-Signatures/larna.t
@@ -6,12 +6,20 @@ use Test::More;
 
 use Function::Parameters qw(:strict);;
 
-
-ok eval q{ my $a = [ fun () {}, 1 ]; 1 }, 'anonymous function in list is okay'
+{
+    my $a;
+    ok eval q{ $a = [ fun () {}, 1 ]; 1 }, 'anonymous function in list is okay'
         or diag "eval error: $@";
+    is ref $a->[0], "CODE";
+    is $a->[1], 1;
+}
 
-ok eval q{ my $a = [ method () {}, 1 ]; 1 }, 'anonymous method in list is okay'
+{
+    my $a;
+    ok eval q{ $a = [ method () {}, 1 ]; 1 }, 'anonymous method in list is okay'
         or diag "eval error: $@";
-
+    is ref $a->[0], "CODE";
+    is $a->[1], 1;
+}
 
 done_testing;