Skip to content

Commit

Permalink
Unfudge tests that now work.
Browse files Browse the repository at this point in the history
  • Loading branch information
colomon committed Jan 21, 2012
1 parent 32f20d8 commit e42926d
Show file tree
Hide file tree
Showing 2 changed files with 0 additions and 3 deletions.
1 change: 0 additions & 1 deletion S03-metaops/zip.t
Expand Up @@ -15,7 +15,6 @@ is (<a b> Z~ <1 2>), <a1 b2>, 'zip-concat produces expected result';

is (1,2 Z* 3,4), (3,8), 'zip-product works';

#?niecza todo
is (1,2 Zcmp 3,2,0), (Order::Increase, Order::Same), 'zip-cmp works';

# tests for laziness
Expand Down
2 changes: 0 additions & 2 deletions S03-operators/spaceship-and-containers.t
Expand Up @@ -8,13 +8,11 @@ plan 6;
my %h = ("a" => 1, "b" => 2);
ok(%h{"a"} < %h{"b"}, 'comparing hash values');
ok(%h{"a"} <= %h{"b"}, 'comparing hash values');
#?niecza todo
is(%h{"a"} <=> %h{"b"}, Order::Increase, 'comparing hash values');

my @a = (1, 2);
ok(@a[0] < @a[1], 'comparing array values');
ok(@a[0] <= @a[1], 'comparing array values');
#?niecza todo
is(@a[0] <=> @a[1], Order::Increase, 'comparing array values');

# vim: ft=perl6

0 comments on commit e42926d

Please sign in to comment.