Fudge for Niecza.

Author: colomon

S03-operators/bag.t

@@ -48,13 +48,15 @@ is showkv($s ∩ $b), "blood:1 love:1", "Set intersection with Bag works";
 isa_ok ($s ∩ $b), Bag, "... and it's actually a Bag";
 is showkv($s ∩ $kb), "blood:1 love:1", "Set intersection with KeyBag works";
 isa_ok ($s ∩ $kb), Bag, "... and it's actually a Bag";
+#?niecza todo 'Right now this works as $kb ∩ glag ∩ green ∩ blood.  Test may be wrong?'
 is showkv($kb ∩ <glad green blood>), "blood:1", "KeyBag intersection with array of strings works";
 isa_ok ($kb ∩ <glad green blood>), Bag, "... and it's actually a Bag";
 
 is showkv($s (&) $b), "blood:1 love:1", "Set intersection with Bag works (texas)";
 isa_ok ($s (&) $b), Bag, "... and it's actually a Bag";
 is showkv($s (&) $kb), "blood:1 love:1", "Set intersection with KeyBag works (texas)";
 isa_ok ($s (&) $kb), Bag, "... and it's actually a Bag";
+#?niecza todo 'Right now this works as $kb ∩ glag ∩ green ∩ blood.  Test may be wrong?'
 is showkv($kb (&) <glad green blood>), "blood:1", "KeyBag intersection with array of strings works (texas)";
 isa_ok ($kb (&) <glad green blood>), Bag, "... and it's actually a Bag";