Permalink
Browse files

[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
  • Loading branch information...
moritz
moritz committed Apr 5, 2010
1 parent 861910a commit f1645a1dd5f92a594100b5cbcd512293a2d52c7f
Showing with 8 additions and 0 deletions.
  1. +8 −0 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

0 comments on commit f1645a1

Please sign in to comment.