Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Unfudge a couple of now-passing tests.
  • Loading branch information
jnthn committed Jan 10, 2013
1 parent d0088f5 commit 61f8766
Show file tree
Hide file tree
Showing 2 changed files with 0 additions and 3 deletions.
2 changes: 0 additions & 2 deletions S02-types/array.t
Expand Up @@ -246,14 +246,12 @@ my @array2 = ("test", 1, Mu);
my $minus_one = -1;

eval_dies_ok '@arr[-1]', "readonly accessing [-1] of normal array is compile-time error";
#?rakudo todo '@arr[-1] returns failure, not dies'
#?niecza todo '@arr[-1] returns undef'
#?pugs todo
dies_ok { @arr[ $minus_one ] }, "indirectly accessing [-1] " ~
"through a variable is run-time error";
#?pugs todo
dies_ok { @arr[$minus_one] = 42 }, "assigning to [-1] of a normal array is fatal";
#?rakudo todo "binding not yet fatal"
#?pugs todo
dies_ok { @arr[$minus_one] := 42 }, "binding [-1] of a normal array is fatal";
}
Expand Down
1 change: 0 additions & 1 deletion S32-array/splice.t
Expand Up @@ -131,7 +131,6 @@ dies_ok({ 42.splice }, '.splice should not work on scalars');

@a = (1..10);
dies_ok({use fatal; splice(@a,-2)}, "negative offset dies");
#?rakudo todo "negative args don't die"
dies_ok({use fatal; splice(@a,2,-20)}, "negative size dies");

# vim: ft=perl6

0 comments on commit 61f8766

Please sign in to comment.