From 1d1e315152c896709acbb6c270337605e9e24fc1 Mon Sep 17 00:00:00 2001
From: Elizabeth Mattijsen <liz@dijkmat.nl>
Date: Wed, 4 Sep 2013 14:14:13 +0200
Subject: [PATCH] Fudges / unfudges while working on Set

---
 S02-types/keybag.t  | 1 +
 S02-types/set.t     | 2 --
 S03-operators/bag.t | 4 ++++
 S03-operators/set.t | 4 ++--
 4 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/S02-types/keybag.t b/S02-types/keybag.t
index 48bc62f7ff..72d8549c54 100644
--- a/S02-types/keybag.t
+++ b/S02-types/keybag.t
@@ -77,6 +77,7 @@ sub showkv($x) {
     nok "a" ~~ (KeyBag.new: <a b c>), "Smartmatch is not element of";
     ok (KeyBag.new: <a b c>) ~~ KeyBag, "Type-checking smartmatch works";
 
+    #?rakudo todo 'huh?'
     ok (set <a b c>) ~~ (KeyBag.new: <a b c>), "Set smartmatches with equivalent KeyBag.new:";
     nok (set <a a a b c>) ~~ (KeyBag.new: <a a a b c>), "... but not if the Bag has greater quantities";
     nok (set <a b c>) ~~ KeyBag, "Type-checking smartmatch works";
diff --git a/S02-types/set.t b/S02-types/set.t
index d6e3ca11d3..a8de0e06a0 100644
--- a/S02-types/set.t
+++ b/S02-types/set.t
@@ -86,7 +86,6 @@ sub showset($s) { $s.keys.sort.join(' ') }
     my $s = set 2, 'a', False;
     my @ks = $s.keys;
     #?niecza 3 todo
-    #?rakudo 3 todo ''
     is @ks.grep(Int)[0], 2, 'Int keys are left as Ints';
     is @ks.grep(* eqv False).elems, 1, 'Bool keys are left as Bools';
     is @ks.grep(Str)[0], 'a', 'And Str keys are permitted in the same set';
@@ -287,7 +286,6 @@ sub showset($s) { $s.keys.sort.join(' ') }
     ok $s1<c>, "One of them is 'c'";
     ok $s1<d>, "One of them is 'd'";
     $inner-set = $s1.first(Set);
-    #?rakudo 2 todo "Set does not conform to new standard yet"
     #?niecza 2 todo 'Set in Set does not work correctly yet'
     isa_ok $inner-set, Set, "One of the set's elements is indeed a set!";
     is showset($inner-set), "a b c", "With the proper elements";
diff --git a/S03-operators/bag.t b/S03-operators/bag.t
index 1eb846b2ab..64f2439434 100644
--- a/S03-operators/bag.t
+++ b/S03-operators/bag.t
@@ -42,8 +42,10 @@ 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)";
 isa_ok ($kb ∩ $kb), Bag, "... and it's actually a Bag";
 
+#?rakudo todo 'huh?'
 is showkv($s ∩ $b), "blood:1 love:1", "Set intersection with Bag works";
 isa_ok ($s ∩ $b), Bag, "... and it's actually a Bag";
+#?rakudo todo 'huh?'
 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'
@@ -51,8 +53,10 @@ isa_ok ($s ∩ $kb), Bag, "... and it's actually a Bag";
 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";
 
+#?rakudo todo 'huh?'
 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";
+#?rakudo todo 'huh?'
 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?'
diff --git a/S03-operators/set.t b/S03-operators/set.t
index bb5e420f55..c12cd6e608 100644
--- a/S03-operators/set.t
+++ b/S03-operators/set.t
@@ -140,10 +140,10 @@ isa_ok ($s (^) $ks), Set, "... and it's actually a Set";
 is showset($ks (^) $s), showset(set <is isn't your day>), "Set symmetric difference with KeySet is correct";
 isa_ok ($ks (^) $s), Set, "... and it's actually a Set";
 
-#?rakudo todo 'huh?'
+#?rakudo skip 'huh?'
 is showset($s (^) $b), showset($s (|) $b), "Bag symmetric difference with Set is correct";
 isa_ok ($s (^) $b), Set, "... and it's actually a Set";
-#?rakudo todo 'huh?'
+#?rakudo skip 'huh?'
 is showset($b (^) $s), showset($s (|) $b), "Set symmetric difference with Bag is correct";
 isa_ok ($b (^) $s), Set, "... and it's actually a Set";