More test unfudges by reduction

Raku · Sep 8, 2013 · 198a351 · 198a351
1 parent 66ea61e
commit 198a351
Show file tree

Hide file tree

Showing 3 changed files with 0 additions and 3 deletions.
diff --git a/S02-types/bag.t b/S02-types/bag.t
@@ -56,7 +56,6 @@ sub showkv($x) {
     nok "a" ~~ (bag <a b c>), "Smartmatch is not element of";
     ok (bag <a b c>) ~~ Bag, "Type-checking smartmatch works";
 
-    #?rakudo todo 'huh?'
     ok (set <a b c>) ~~ (bag <a b c>), "Set smartmatches with equivalent bag";
     nok (set <a a a b c>) ~~ (bag <a a a b c>), "... but not if the Bag has greater quantities";
     nok (set <a b c>) ~~ Bag, "Type-checking smartmatch works";

diff --git a/S02-types/keybag.t b/S02-types/keybag.t
@@ -78,7 +78,6 @@ 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/S03-operators/set.t b/S03-operators/set.t
@@ -118,7 +118,6 @@ isa_ok ($s (-) $b), Set, "... and it's actually a Set";
 
 is showset($s (-) $kb), showset(set <I'm afraid it isn't day>), "KeyBag subtracted from Set is correct";
 isa_ok ($s (-) $kb), Set, "... and it's actually a Set";
-#?rakudo todo "huh?"
 is showkv($kb (-) $s), showkv(<Come, take your bread with joy, and wine with a glad heart>.Bag), "Set subtracted from KeyBag is correct";
 isa_ok ($kb (-) $s), Bag, "... and it's actually a Bag";