Permalink
Browse files

Fudge for Rakudo.

  • Loading branch information...
1 parent aadc834 commit 20856369b34c6e95fccfc4939382803f4af0a13e @colomon colomon committed Dec 13, 2012
Showing with 4 additions and 0 deletions.
  1. +4 −0 S03-operators/bag.t
View
4 S03-operators/bag.t
@@ -20,6 +20,7 @@ my $kb = KeyBag.new({ blood => 1, love => 2 });
# Bag Union
+#?rakudo 8 skip "∪ NYI"
is showkv($b $b), showkv($b), "Bag union with itself yields self";
isa_ok ($b $b), Bag, "... and it's actually a Bag";
is showkv($kb $kb), showkv($kb), "KeyBag union with itself yields (as Bag)";
@@ -37,6 +38,7 @@ isa_ok ($s (|) $kb), Bag, "... and it's actually a Bag";
# Bag Intersection
+#?rakudo 10 skip "∩ NYI"
is showkv($b $b), showkv($b), "Bag intersection with itself yields self (as Bag)";
isa_ok ($b $b), Bag, "... and it's actually a Bag";
is showkv($kb $kb), showkv($kb), "KeyBag intersection with itself yields self (as Bag)";
@@ -58,6 +60,7 @@ isa_ok ($kb (&) <glad green blood>), Bag, "... and it's actually a Bag";
# Bag multiplication
+#?rakudo 16 skip "∩ NYI"
is showkv($s $s), "blood:1 love:1", "Bag multiplication with itself yields self squared";
isa_ok ($s $s), Bag, "... and it's actually a Bag";
is showkv($ks $ks), "blood:1 rhetoric:1", "Bag multiplication with itself yields self squared";
@@ -87,6 +90,7 @@ isa_ok ($kb (.) $b), Bag, "... and it's actually a Bag";
# Bag addition
+#?rakudo 16 skip "⊎ NYI"
is showkv($s $s), "blood:2 love:2", "Bag addition with itself yields twice self";
isa_ok ($s $s), Bag, "... and it's actually a Bag";
is showkv($ks $ks), "blood:2 rhetoric:2", "Bag addition with itself yields twice self";

0 comments on commit 2085636

Please sign in to comment.