@@ -26,7 +26,7 @@ my &tester2 = &tester.assuming(&tester, :b<b>);
26
26
is $ w (a => ' x' , c => ' d' ), ' ax bb cd' , ' ... and the old one still works' ;
27
27
}
28
28
29
- # ?rakudo todo 'last part of RT #123498 is still unresolved.'
29
+ # ?rakudo.moar todo 'last part of RT #123498 is still unresolved.'
30
30
priming-fails-bind-ok(sub { }, " " , " Unexpected named" , : named);
31
31
32
32
# Since you can override named params .assuming does not alter sig
@@ -48,9 +48,10 @@ is-primed-sig(sub (:b($a)!) { }, :(:b($a)), :b);
48
48
is-primed-sig(sub (: b(: c($ a ))! ) { }, : (: b(: c($ a ))), : c);
49
49
is-primed-sig(sub (: b(: c($ a ))! ) { }, : (: b(: c($ a ))), : b);
50
50
51
- # ?rakudo todo 'last part of RT #123498 is still unresolved.'
51
+ # ?rakudo.moar todo 'last part of RT #123498 is still unresolved.'
52
52
priming-fails-bind-ok(sub (: b(: c($ a ))! ) { }, " " , " Unexpected named" , : d);
53
53
54
+
54
55
is-primed-sig(sub (: $ a ! where { True }) { }, : (: $ a ? ), : a);
55
56
is-primed-sig(sub (: $ a ! is parcel where { True }) { }, : (: $ a ? is parcel), : a);
56
57
is-primed-sig(sub (: $ a ! is copy where { True }) { }, : (: $ a ? is copy ), : a);
@@ -60,7 +61,10 @@ is-primed-sig(sub (:$a! is copy where { True }) { }, :(:$a? is copy), :a);
60
61
# is-primed-sig(sub (:$a! is rw where { True }) { }, :(:$a is rw), :a);
61
62
is-primed-sig(sub (: $ a is copy where { True } = 4 ) { }, : (: $ a is copy ), : a);
62
63
is-primed-sig(sub (Int : $ a ! where { True }) { }, : (Int : $ a ? ), : a(1 ));
64
+
63
65
# ?rakudo.jvm todo 'need/find RT JVM seems to not mind the type conflict'
64
66
priming-fails-bind-ok(sub (Int : $ a ! ) { }, ' $a' , Int , : a);
65
67
68
+
69
+
66
70
# vim: ft=perl6
0 commit comments