Skip to content
Browse files

Various unfudges and skip->todo changes

  • Loading branch information...
1 parent 3bfca3a commit 198b4c651d5699bd8e8db9784c2f665255391a20 @lizmat lizmat committed
View
1 S03-operators/spaceship.t
@@ -18,7 +18,6 @@ my $result_1 = ([+] %ball{10..12}) <=> ([+] %ball{1..3});
is($result_1, Order::Same, 'When spaceship terms are non-trivial members it parses incorrectly');
my $result_2 = ([+] %ball{11,12}) <=> ([+] %ball{1,2});
is($result_2, Order::Same, 'When spaceship terms are non-trivial members it parses incorrectly');
-#?rakudo skip 'unspecced: does infix:«<=>» numify its arguments?'
{
my $result_3 = ([0] <=> [0,1]);
is($result_3, Order::Increase, 'When spaceship terms are non-trivial members it parses incorrectly');
View
1 S03-sequence/arity-2-or-more.t
@@ -24,7 +24,6 @@ is (1, 1, 2, 3, { $^a + $^b } ... 8).join(', '), '1, 1, 2, 3, 5, 8', 'arity-2 Fi
# adapted from http://www.perlmonks.org/?node_id=772778
#?niecza skip "Undeclared names: '[%]'"
is (42, 24, &[%] ... 0)[*-2], 6, 'arity-2 GCD';
-#####?rakudo skip '&[%]'
#?niecza skip "Undeclared names: '[%]'"
is (42, 24, &[%] ...^ 0)[*-1], 6, 'arity-2 GCD with excluded limit';
is (42, 24, * % * ... 0)[*-2], 6, 'arity-2 GCD';
View
2 S03-sequence/basic.t
@@ -134,7 +134,7 @@ is (1, 2 ... 0).[^3], (1,2,3), 'No more: limit value is on the wrong side';
ok ?(one((-5 ... ^5).flat) == 0), '-5 ... ^5 produces just one zero';
# RT #75316
-#?rakudo skip 'mysterious'
+#?rakudo todo 'mysterious'
#?niecza skip 'Failure NYI'
isa_ok (1...()), Failure,
'empty list on right side of sequence operator does not cause infinite loop';
View
2 S03-sequence/misc.t
@@ -4,7 +4,7 @@ use Test;
# L<S03/List infix precedence/constraints implied by the signature of the function>
#?niecza skip 'Nominal type check failed in binding Int $n in f; got Str, needed Int'
-#?rakudo skip 'type check failed (bogus test?)'
+#?rakudo todo 'bogus test?'
{
sub f (Int $n) { $n > 3 ?? 'liftoff!' !! $n + 1 }
is (1, &f ... *).join(' '), '1 2 3 liftoff!', 'sequence terminated by signature mismatch';
View
2 S03-sequence/nonnumeric.t
@@ -5,7 +5,7 @@ plan 35;
# L<S03/List infix precedence/'C<.succ> is assumed'>
-#?rakudo skip 'loops'
+#?rakudo skip 'hangs'
#?niecza skip 'Two definitions found for symbol ::GLOBAL::&infix:<cmp> (etc)'
{
class Alternating {
View
3 S04-blocks-and-statements/pointy.t
@@ -92,7 +92,6 @@ lives_ok {my $x = -> {}; my $y = $x(); },
# L<S02/Undefined types/default block parameter type>
# this means that junctions don't autothread over pointy blocks
-#?rakudo skip 'Could not find non-existent sub junction'
#?niecza skip 'Could not find non-existent sub junction'
#?pugs skip 'No such subroutine: "&junction'
{
@@ -100,7 +99,7 @@ lives_ok {my $x = -> {}; my $y = $x(); },
my $ok = 0;
my $iterations = 0;
for @a -> $x {
- $ok = 1 if $x ~~ junction;
+ $ok = 1 if $x ~~ Junction;
$iterations++;
}
ok $ok, 'Blocks receive junctions without autothreading';
View
4 S04-blocks-and-statements/temp.t
@@ -97,7 +97,6 @@ eval('
# L<S06/Temporization/You can also modify the behaviour of temporized code structures>
# (Test is more or less directly from S06.)
#?niecza 2 skip 'spec clarification needed'
-#?rakudo 2 skip 'TEMP phasers NYI'
{
my $next = 0;
@@ -115,6 +114,7 @@ eval('
is advance(), 2, "TEMP{} block (3)";
is $next, 3, "TEMP{} block (4)";
+ #?rakudo 4 todo 'TEMP phasers NYI'
#?pugs 4 todo 'feature'
flunk "TEMP{} block (5)";
flunk "TEMP{} block (6)";
@@ -156,9 +156,11 @@ eval('
ok defined($a), "instantiating a WierdTemp worked";
is $was_in_own_temp_handler, 0, ".TEMP method wasn't yet executed";
+ #?rakudo todo 'TEMP phasers NYI'
{
is((temp $a; $was_in_own_temp_handler), 1, ".TEMP method was executed on temporization");
}
+ #?rakudo todo 'TEMP phasers NYI'
is $was_in_own_temp_handler, 2, ".TEMP method was executed on restoration";
}
View
2 S04-declarations/constant.t
@@ -44,10 +44,10 @@ use Test;
eval_lives_ok 'foo2 == 42', 'constants are our scoped';
}
-#?rakudo skip 'constants as type constraints'
#?niecza skip 'Lexical foo3 is not a package (?)'
{
constant foo3 = 42;
+ #?rakudo todo 'constants as type constraints'
lives_ok { my foo3 $x = 42 }, 'constant can be used as a type constraint';
dies_ok { my foo3 $x = 43 }, 'constant used as a type constraint enforces';
dies_ok { my foo3 $x = 42; $x =43 }, 'constant used as a type constraint enforces';
View
2 S04-exceptions/pending.t
@@ -24,6 +24,7 @@ sub fail_it { fail $^a }
{
my @fails = ( fail_it(1), fail_it(2), fail_it(3), fail_it(4) );
+ #?rakudo todo 'not full of fail?'
ok all(@fails) ~~ Failure, '@fails is full of fail';
ok $! !~~ Exception, 'fails do not enter $!';
#?rakudo 11 skip '$!.pending'
@@ -53,6 +54,7 @@ sub fail_it { fail $^a }
# L<S04/Exceptions/"At scope exit,">
+#?rakudo skip '$object.handled'
{
my $fails_thrown = 0;
{
View
2 S04-phasers/enter-leave.t
@@ -87,7 +87,7 @@ plan 21;
# normal closure:
#?niecza skip 'leave'
-#?rakudo skip 'some syntax error while parsing'
+#?rakudo skip 'leave NYI'
{
#?pugs todo
is eval(q{

0 comments on commit 198b4c6

Please sign in to comment.
Something went wrong with that request. Please try again.