Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
unfudge some tests for rakudo, including tests for RT #64474
  • Loading branch information
moritz committed Nov 16, 2010
1 parent c941342 commit e0961ad
Show file tree
Hide file tree
Showing 4 changed files with 0 additions and 6 deletions.
2 changes: 0 additions & 2 deletions S03-operators/context.t
Expand Up @@ -51,7 +51,6 @@ plan *;
is((item $a, $b), @array, 'item($a, $b) is the same as <<$a $b>> in an array');
}

#?rakudo skip 'loops'
{
# Most of these tests pass in Rakudo, but we must compare with
# eqv instead of eq, since the order of hashes is not guaranteed
Expand All @@ -61,7 +60,6 @@ plan *;
ok(%('a', 1, 'b', 2) eqv {a => 1, b => 2}, '%(values) builds a hash');
ok(hash('a', 1, 'b', 2) eqv {a => 1, b => 2}, 'hash(values) builds a hash');
ok((hash 'a', 1, 'b', 2) eqv {a => 1, b => 2}, 'hash values builds a hash');
#?rakudo todo 'hash of one element dies'
eval_dies_ok('hash("a")', 'building a hash of one item fails');
}

Expand Down
1 change: 0 additions & 1 deletion S03-operators/misc.t
Expand Up @@ -96,7 +96,6 @@ ok(?((any(1..6) == one(1|2|3|4|5|6))), "any elements will match via junction");
}

# L<S03/Traversing arrays in parallel/"but a short list may always be extended arbitrarily">
#?rakudo skip 'RT #64474'
{
is (1, 2, * Z <a b c d>).join('|'),
'1|a|2|b|2|c|2|d',
Expand Down
1 change: 0 additions & 1 deletion S03-sequence/nonnumeric.t
Expand Up @@ -56,7 +56,6 @@ is ('β˜€' ...^ 'β˜•').join(''), 'β˜€β˜β˜‚β˜ƒβ˜„β˜…β˜†β˜‡β˜ˆβ˜‰β˜Šβ˜‹β˜Œβ˜β˜Ž
ok ('A' ... 'ZZ').munch(1000).elems < 1000, "'A' ... 'ZZ' does not go on forever";
ok ('ZZ' ... 'A').munch(1000).elems < 1000, "'ZZ' ... 'A' does not go on forever";
ok ('Z' ... 'AA').munch(1000).elems < 1000, "'Z' ... 'AA' does not go on forever";
#?rakudo skip '...^'
is ('A' ...^ 'ZZ')[*-1], 'ZY', "'A' ...^ 'ZZ' omits last element";

# be sure the test works as specced even for user classes
Expand Down
2 changes: 0 additions & 2 deletions S32-array/elems.t
Expand Up @@ -67,7 +67,6 @@ plan 13;
is elems(:array((1,2,3,4))), 4, "elems (1,2,3,4) should work with named argument";
}

#?rakudo skip 'no sub version of elems yet'
{
is (elems (1,2,3,4)), 4, "elems (1,2,3,4) should work";
}
Expand All @@ -77,7 +76,6 @@ plan 13;
is (elems [1,2,3,4]), 4, "elems [1,2,3,4] should work";
}

#?rakudo skip 'no sub version of elems yet'
{
is (elems ([1,2,3,4],)), 1, "elems ([1,2,3,4],) should return 1";
}
Expand Down

0 comments on commit e0961ad

Please sign in to comment.