Fudges while work continues on Key|KeySet

Raku · Sep 4, 2013 · 2df4c4a · 2df4c4a
1 parent 1d1e315
commit 2df4c4a
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 0 deletions.
diff --git a/S02-types/bag.t b/S02-types/bag.t
@@ -56,6 +56,7 @@ 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/keyset.t b/S02-types/keyset.t
@@ -191,6 +191,7 @@ sub showset($s) { $s.keys.sort.join(' ') }
     is $s.iterator.grep(Str).elems, 3, ".iterator yields three Strs";
 }
 
+#?rakudo todo 'huh?'
 {
     my $s = KeySet.new(<foo bar baz>);
     my $str;
@@ -211,6 +212,7 @@ sub showset($s) { $s.keys.sort.join(' ') }
 
 {
     my $s = KeySet.new(<foo bar baz>);
+    #?rakudo 2 todo 'huh?'
     lives_ok { $s = $s.gist }, ".gist lives";
     isa_ok $s, Str, "... and produces a string";
     ok $s ~~ /foo/, "... which mentions foo";