Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Unfudge now passing βˆ… related tests
FROGGS++ for not giving up on βˆ…
  • Loading branch information
lizmat committed Aug 4, 2014
1 parent 328957c commit 0828e60
Show file tree
Hide file tree
Showing 2 changed files with 1 addition and 5 deletions.
3 changes: 1 addition & 2 deletions S03-operators/bag.t
@@ -1,7 +1,7 @@
use v6;
use Test;

plan 108;
plan 100;

sub showkv($x) {
$x.keys.sort.map({ $^k ~ ':' ~ $x{$k} }).join(' ')
Expand Down Expand Up @@ -142,7 +142,6 @@ isa_ok ($kb (+) $b), Bag, "... and it's actually a Bag";
ok $kb (>+) $kb, "Our keybag is a msuperset of itself";
}

#?rakudo skip 'Reduction and bag operators'
{
# my $s = set <blood love>;
# my $ks = SetHash.new(<blood rhetoric>);
Expand Down
3 changes: 0 additions & 3 deletions S03-operators/set.t
Expand Up @@ -98,7 +98,6 @@ isa_ok ($s (&) $ks), Set, "... and it's actually a Set (texas)";

# set subtraction

#?rakudo skip "βˆ… NYI"
is showset($s (-) $s), showset(βˆ…), "Set subtracted from Set is correct";
isa_ok ($s (-) $s), Set, "... and it's actually a Set";

Expand All @@ -119,7 +118,6 @@ isa_ok ($kb (-) $s), Bag, "... and it's actually a Bag";

# symmetric difference

#?rakudo skip "βˆ… NYI"
is showset($s (^) $s), showset(βˆ…), "Set symmetric difference with Set is correct";
isa_ok ($s (^) $s), Set, "... and it's actually a Set";

Expand Down Expand Up @@ -413,7 +411,6 @@ ok $s !R(>) $kb, "Set is not a reversed proper superset of BagHash (texas)";
ok $kb !R(>) $kb, "BagHash is not reversed proper superset of itself (texas)";
ok $kb !R(>) $s, "BagHash is not a reversed proper superset of Set (texas)";

#?rakudo skip 'Reduction and set operators'
{
my $a = set <Zeus Hera Artemis Apollo Hades Aphrodite Ares Athena Hermes Poseidon Hephaestus>;
my $b = set <Jupiter Juno Neptune Minerva Mars Venus Apollo Diana Vulcan Vesta Mercury Ceres>;
Expand Down

0 comments on commit 0828e60

Please sign in to comment.