rakudo nom fudging

Author: coke

S02-types/enum.t

@@ -8,6 +8,7 @@ use Test;
 
     #is((%hash<Mon Tue Wed Thu Fri Sat Sun>) »eq« (1 .. 7)), "enum generated correct sequence");
     #?pugs 3 todo
+    #?rakudo 3 todo 'todo'
     is(%hash<Mon>, 1, "first value ok");
     is(%hash<Thu>, 4, "fourth value ok");
     is(%hash<Sun>, 7, "last value ok");
@@ -18,6 +19,7 @@ use Test;
 
     #is((%hash<Two Three Four>) »eq« (2 .. 4)), "enum generated correct sequence");
     #?pugs 3 todo
+    #?rakudo 3 todo 'todo'
     is(%hash<Two>, 2, "first value ok");
     is(%hash<Three>, 3, "second value ok");
     is(%hash<Four>, 4, "last value ok");
@@ -26,6 +28,7 @@ use Test;
 my %hash;
 
 #?pugs 3 todo 'feature'
+#?rakudo todo 'todo'
 lives_ok { %hash = enum <<:Sun(1) :Mon(2) :Tue(3) :Wed(4) :Thu(5) :Fri(6) :Sat(7)>>; }, 'specifying keys and values works...';
 
 #?rakudo 2 todo '<<:pair(3)>> magic' 
@@ -35,6 +38,7 @@ is %hash.values.sort, 1..7, '...and the right values are assigned';
 %hash = ();
 
 #?pugs 3 todo 'feature'
+#?rakudo todo 'todo'
 lives_ok { %hash = enum <<:Sun(1) Mon Tue Wed Thu Fri Sat>>; }, 'specifying a value for only the first key works...';
 
 #?rakudo 2 todo '<<:pair(3)>> magic' 
@@ -45,6 +49,7 @@ is %hash.values.sort, 1..7, '...and the right values are assigned';
 %hash = ();
 
 #?pugs 3 todo 'feature'
+#?rakudo todo 'todo'
 lives_ok { %hash = enum «:Sun(1) Mon Tue Wed Thu Fri Sat»; }, 'french quotes work...';
 
 #?rakudo 2 todo '<<:pair(3)>> magic' 
@@ -55,6 +60,7 @@ is %hash.values, 1..7, '...and the right values are assigned';
 %hash = ();
 
 #?pugs 3 todo 'feature'
+#?rakudo todo 'todo'
 lives_ok { %hash = enum <<:Sun(1) Mon Tue :Wed(4) Thu Fri Sat>>; }, 'specifying continuous values in the middle works...';
 
 #?rakudo 2 todo '<<:pair(3)>> magic' 
@@ -64,6 +70,7 @@ is %hash.values.sort, 1..7, '...and the right values are assigned';
 %hash = ();
 
 #?pugs 3 todo 'feature'
+#?rakudo todo 'todo'
 lives_ok { %hash = enum <<:Sun(1) Mon Tue :Wed(5) Thu Fri Sat>>; }, 'specifying different values in the middle works...';
 
 #?rakudo 2 todo '<<:pair(3)>> magic' 
@@ -74,6 +81,7 @@ is %hash.values.sort, (1, 2, 3, 5, 6, 7, 8), '...and the right values are assign
 %hash = ();
 
 #?pugs 3 todo 'feature'
+#?rakudo todo 'todo'
 lives_ok { %hash = enum «:Alpha<A> Bravo Charlie Delta Echo»; }, 'specifying a string up front works';
 
 #?rakudo 2 todo '<<:pair(3)>> magic' 
@@ -86,9 +94,11 @@ is %hash.values.sort, <A B C D E>, '...and the right values are assigned';
 lives_ok { %hash = enum <<:Alpha<A> Bravo Charlie Delta Echo>>; }, 'specifying a string up front works (Texas quotes)'; 
 
 #?pugs todo 'feature'
+#?rakudo todo 'todo'
 is %hash.keys.sort, <Alpha Bravo Charlie Delta Echo>, '...and the right keys are assigned';
 
 #?pugs todo 'feature'
+#?rakudo todo 'todo'
 is %hash.values, <A B C D E>, '...and the right values are assigned';
 
 %hash = ();
@@ -97,8 +107,10 @@ is %hash.values, <A B C D E>, '...and the right values are assigned';
 #?pugs 3 todo 'feature'
 lives_ok { %hash = enum «:zero(0) one two three four five six seven eight nine :ten<a> eleven twelve thirteen fourteen fifteen»; }, 'mixing strings and integers works';
 
+#?rakudo todo 'todo'
 is %hash.keys, <zero one two three four five six seven eight nine ten eleven twelve thirteen fourteen fifteen>, '...and the right keys are assigned';
 
+#?rakudo todo 'todo'
 is %hash.values, (0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 'A', 'B', 'C', 'D', 'E', 'F'), '...and the right values are assigned';
 
 %hash = ();
@@ -129,7 +141,6 @@ is %hash.values, (0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 'A', 'B', 'C', 'D', 'E', 'F'), '
 # RT 66648
 {
     enum RT66648 <a b c>;
-    #?rakudo todo 'RT 66648'
     dies_ok { RT66648.c }, 'die attempting to access enum item as method';
 }