Skip to content

Commit cf74e36

Browse files
committed
Make fudge aware of some more functions from packages/Test/
Unfudge some tests that run on JVM but not moar.
1 parent bc052ef commit cf74e36

File tree

2 files changed

+16
-2
lines changed

2 files changed

+16
-2
lines changed

S06-currying/named.t

Lines changed: 6 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -26,7 +26,7 @@ my &tester2 = &tester.assuming(&tester, :b<b>);
2626
is $w(a => 'x', c => 'd'), 'ax bb cd', '... and the old one still works';
2727
}
2828

29-
#?rakudo todo 'last part of RT #123498 is still unresolved.'
29+
#?rakudo.moar todo 'last part of RT #123498 is still unresolved.'
3030
priming-fails-bind-ok(sub { }, "", "Unexpected named", :named);
3131

3232
# Since you can override named params .assuming does not alter sig
@@ -48,9 +48,10 @@ is-primed-sig(sub (:b($a)!) { }, :(:b($a)), :b);
4848
is-primed-sig(sub (:b(:c($a))!) { }, :(:b(:c($a))), :c);
4949
is-primed-sig(sub (:b(:c($a))!) { }, :(:b(:c($a))), :b);
5050

51-
#?rakudo todo 'last part of RT #123498 is still unresolved.'
51+
#?rakudo.moar todo 'last part of RT #123498 is still unresolved.'
5252
priming-fails-bind-ok(sub (:b(:c($a))!) { }, "", "Unexpected named", :d);
5353

54+
5455
is-primed-sig(sub (:$a! where { True }) { }, :(:$a?), :a);
5556
is-primed-sig(sub (:$a! is parcel where { True }) { }, :(:$a? is parcel), :a);
5657
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);
6061
#is-primed-sig(sub (:$a! is rw where { True }) { }, :(:$a is rw), :a);
6162
is-primed-sig(sub (:$a is copy where { True } = 4) { }, :(:$a is copy), :a);
6263
is-primed-sig(sub (Int :$a! where { True }) { }, :(Int :$a?), :a(1));
64+
6365
#?rakudo.jvm todo 'need/find RT JVM seems to not mind the type conflict'
6466
priming-fails-bind-ok(sub (Int :$a!) { }, '$a', Int, :a);
6567

68+
69+
6670
# vim: ft=perl6

fudge

Lines changed: 10 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -157,6 +157,16 @@ my $IS = _register_functions( # regex with test functions used in roast
157157
loads_is loads-is
158158
precomp_loads_is precomp-loads-is
159159
),
160+
# from Test::Idempotency
161+
qw(
162+
is-perl-idempotent
163+
),
164+
# from Test::Assuming
165+
qw(
166+
is-primed-sig
167+
is-primed-call
168+
priming-fails-bind-ok
169+
),
160170
);
161171
my %DOES;
162172
my $DOES = 0;

0 commit comments

Comments
 (0)