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: ), "Smartmatch is not element of";
ok (KeyBag.new: ) ~~ KeyBag, "Type-checking smartmatch works";
+ #?rakudo todo 'huh?'
ok (set ) ~~ (KeyBag.new: ), "Set smartmatches with equivalent KeyBag.new:";
nok (set ) ~~ (KeyBag.new: ), "... but not if the Bag has greater quantities";
nok (set ) ~~ 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, "One of them is 'c'";
ok $s1, "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 ∩ ), "blood:1", "KeyBag intersection with array of strings works";
isa_ok ($kb ∩ ), 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 ), "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";