nom fudging

Raku · Sep 12, 2011 · 65541e3 · 65541e3
1 parent fcbbbbe
commit 65541e3
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 0 deletions.
diff --git a/S05-metasyntax/regex.t b/S05-metasyntax/regex.t
@@ -21,6 +21,7 @@ lives_ok { my Regex $x = rx/foo/ }, 'Can store regexes in typed variables';
 }
 
 # fairly directly from RT #61662
+#?rakudo todo 'nom regression'
 {
     $_ = "a";
     my $mat_tern_y = /a/ ?? "yes" !! "no";
@@ -30,6 +31,7 @@ lives_ok { my Regex $x = rx/foo/ }, 'Can store regexes in typed variables';
 }
 
 # Note for RT - change to $_ ~~ /oo/ to fudge ok
+#?rakudo todo 'nom regression'
 {
     $_ = "foo";
     my $mat_tern = /oo/ ?? "yes" !! "no"; 

diff --git a/integration/advent2009-day18.t b/integration/advent2009-day18.t
@@ -50,8 +50,11 @@ my Glass of MulledWine $glass ;
 role Tray[::ItemType] { }
 my Tray of Glass of MulledWine $valuable;
 
+#?rakudo todo 'nom regression'
 is $mug.WHAT.perl , 'Cup[EggNog]' , 'the $mug is a Cup of EggNog';
+#?rakudo todo 'nom regression'
 is $glass.WHAT.perl , 'Glass[MulledWine]' , 'the $glass is a Glass of MulledWine';
+#?rakudo todo 'nom regression'
 is $valuable.WHAT.perl , 'Tray[Glass[MulledWine]]' , 'the $valuable is a Tray of Glass of MulledWine';
 
 #?rakudo skip 'parse error'