Permalink
Browse files

[t/spec]: Unfudge tests for whatever star in array slices.

git-svn-id: http://svn.pugscode.org/pugs@24549 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 4d3ec37 commit 7367c91945aae7fac573032975e3048c6135d6ad pmichaud committed Dec 22, 2008
Showing with 2 additions and 12 deletions.
  1. +2 −3 S02-builtin_data_types/array.t
  2. +0 −7 S02-builtin_data_types/flattening.t
  3. +0 −1 S02-builtin_data_types/lists.t
  4. +0 −1 S29-array/push.t
@@ -134,7 +134,6 @@ my @array2 = ("test", 1, undef);
dies_ok { @array[1] = $*ERR }, "stuffing IO in an Int array does not work";
}
-#?rakudo skip "no whatever star yet"
#?pugs skip "no whatever star yet"
{
my @array12 = ('a', 'b', 'c', 'e');
@@ -179,7 +178,7 @@ my @array2 = ("test", 1, undef);
is @arr[0], "new value", "modifying of array contents (constants) works";
}
-#?rakudo skip "no whatever star yet"
+#?rakudo skip "access out of array bounds"
#?pugs skip "no whatever star yet"
{
my @arr;
@@ -189,7 +188,7 @@ my @array2 = ("test", 1, undef);
dies_ok { @arr[*-1] := 42 }, "binding [*-1] of an empty array is fatal";
}
-#?rakudo skip "no whatever star yet"
+#?rakudo skip "access out of array bounds"
#?pugs skip "no whatever star yet"
{
my @arr = (23);
@@ -9,7 +9,6 @@ plan 34;
is(@array.elems, 5, 'array has 5 elements');
is(@array[0], 11, 'first value is 11');
- #?rakudo skip "whatever star"
is(@array[*-1], 15, 'last value is 15');
# 3[0] etc. should *not* work, but (3,)[0] should.
# That's similar as with the .kv issue we've had: 3.kv should fail, but
@@ -23,7 +22,6 @@ plan 34;
is(@array[0].elems, 5, 'arrayref has 5 elements');
is(@array[0][0], 11, 'first element in arrayref is 11');
- #?rakudo skip "whatever star"
is(@array[0][*-1], 15, 'last element in arrayref is 15');
}
@@ -33,10 +31,8 @@ plan 34;
is(@array[0].elems, 5, 'first arrayref has 5 elements');
is(@array[1].elems, 5, 'second arrayref has 5 elements');
is(@array[0][0], 11, 'first element in first arrayref is 11');
- #?rakudo skip "whatever star"
is(@array[0][*-1], 15, 'last element in first arrayref is 15');
is(@array[1][0], 21, 'first element in second arrayref is 21');
- #?rakudo 3 skip "whatever star"
is(@array[1][*-1], 25, 'last element in second arrayref is 25');
is(@array[*-1][0], 31, 'first element in last arrayref is 31');
is(@array[*-1][*-1], 35, 'last element in last arrayref is 35');
@@ -47,7 +43,6 @@ plan 34;
is(%hash<k1>.elems, 5, 'k1 has 5 elements');
is(%hash<k1>[0], 11, 'first element in k1 is 11');
- #?rakudo skip "whatever star"
is(%hash<k1>[*-1], 15, 'last element in k1 is 15');
ok(%hash<12> ~~ undef, 'nothing at key "12"');
}
@@ -58,10 +53,8 @@ plan 34;
is(%hash<k1>.elems, 5, 'k1 has 5 elements');
is(%hash<k2>.elems, 5, 'k2 has 5 elements');
is(%hash<k1>[0], 11, 'first element in k1 is 11');
- #?rakudo skip "whatever star"
is(%hash<k1>[*-1], 15, 'last element in k1 is 15');
is(%hash<k2>[0], 21, 'first element in k1 is 21');
- #?rakudo skip "whatever star"
is(%hash<k2>[*-1], 25, 'last element in k1 is 25');
ok(%hash<12> ~~ undef, 'nothing at key "12"');
ok(%hash<22> ~~ undef, 'nothing at key "22"');
@@ -16,7 +16,6 @@ plan 16;
is $foo, 23, "assigning a list element changed the original variable", :todo<bug>;
}
-#?rakudo skip "Whatever star"
{
my $foo = 42;
View
@@ -126,7 +126,6 @@ plan 42;
is(@push.elems, 1, 'nested arrayref, array length is 1');
is(@push[0].elems, 5, 'nested arrayref, arrayref length is 5');
is(@push[0][0], 21, 'nested arrayref, first value is 21');
- #?rakudo skip 'whatever star not implemented'
is(@push[0][*-1], 25, 'nested arrayref, last value is 25');
}

0 comments on commit 7367c91

Please sign in to comment.