Permalink
Browse files

[t/spec] Test for RT #68524

git-svn-id: http://svn.pugscode.org/pugs@28678 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
kyle
kyle committed Oct 9, 2009
1 parent 94a9756 commit 7f14f44d8e77ebbb262456b55f4bd67bd4ceeffc
Showing with 9 additions and 1 deletion.
  1. +9 −1 S06-signature/named-parameters.t
@@ -1,7 +1,7 @@
use v6;
use Test;
-plan 76;
+plan 77;
# L<S06/Required parameters/"Passing a named argument that cannot be bound to
# a normal subroutine is also a fatal error.">
@@ -220,4 +220,12 @@ ok(%fellowship<dwarf> ~~ undef, "dwarf arg was not given");
#?rakudo todo 'RT #68086'
eval_dies_ok 'sub rt68086( $a, $a ) { }', 'two sub params with the same name';
+# RT #68524
+#?rakudo todo 'RT 68524'
+{
+ sub rt68524( :$a! ) {}
+ ok( &rt68524.signature.perl ~~ m/\!/,
+ '.signature.perl with required parameter includes requirement' );
+}
+
# vim: ft=perl6

0 comments on commit 7f14f44

Please sign in to comment.