[t/spec] test that subsignatures appear in the output of Signature.perl

git-svn-id: http://svn.pugscode.org/pugs@30314 c213334d-75ef-0310-aa23-eaa082d1ae64
Raku · Apr 5, 2010 · f1645a1 · f1645a1
1 parent 861910a
commit f1645a1
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/S06-signature/introspection.t b/S06-signature/introspection.t
@@ -95,6 +95,14 @@ sub j(*@i) {
     lives_ok { @l[1].type }, "can access a type_capture'd type";
 }
 
+{
+    sub i(%h($a, $b)) { };
+    my $s = &i.signature.perl;
+    ok $s ~~ /'$a' >> /, '.perl on a nested signature contains variables of the subsignature (1)';
+    ok $s ~~ /'$b' >> /, '.perl on a nested signature contains variables of the subsignature (2)';
+
+}
+
 done_testing;
 
 # vim: ft=perl6