Extra .^methods tests.

Raku · Jun 9, 2013 · 1415743 · 1415743
1 parent ef55c9b
commit 1415743
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/S12-introspection/methods.t b/S12-introspection/methods.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 52;
+plan 56;
 
 =begin pod
 
@@ -147,6 +147,10 @@ is @methods[0].name, 'bar', 'methods call found public method in subclass (with
 {
     lives_ok { Sub.^methods.gist }, 'Can .gist methods of a subroutine';
     lives_ok { Sub.^methods.perl }, 'Can .perl methods of a subroutine';
+    lives_ok { Method.^methods.gist }, 'Can .gist methods of a method';
+    lives_ok { Method.^methods.perl }, 'Can .perl methods of a method';
+    lives_ok { { $^a }.^methods.gist }, 'Can .gist methods of a block';
+    lives_ok { { $^a }.^methods.perl }, 'Can .perl methods of a block';
 }
 
 # vim: ft=perl6