[t/spec] Unfudge a few tests that we now pass.

git-svn-id: http://svn.pugscode.org/pugs@30277 c213334d-75ef-0310-aa23-eaa082d1ae64

S02-literals/char-by-number.t

@@ -18,7 +18,6 @@ is("\x[20]", ' ', '\x[20] normal space');
 is("\x[a0]", chr(0xa0), '\x[a0] non-breaking space');
 is("\x[263a]", '☺', '\x[263a] wide hex character (SMILEY)');
 is("\x[6211]", '我', '\x[597d] wide hex character (Chinese char)');
-#?rakudo 2 todo 'Detecting malformed escape sequences NYI'
 eval_dies_ok('"\x[6211"', 'broken "\x[6211"');
 eval_dies_ok('"\x [6211]"', 'broken "\x [6211]"');
 
@@ -36,7 +35,6 @@ is("\o[40]", ' ', '\o[40] normal space');
 is("\o[240]", chr(160), '\o[240] non-breaking space');
 is("\o[23072]", '☺', '\o[23072] wide hex character (SMILEY)');
 is("\o[61021]", '我', '\o[61021] wide hex character (Chinese char)');
-#?rakudo 2 todo 'Detecting malformed escape sequences NYI'
 eval_dies_ok('"\o[6211"', 'broken "\o[6211"');
 eval_dies_ok('"\o [6211]"', 'broken "\o [6211]"');
 
@@ -62,7 +60,6 @@ is("\c[20320,22909]", '你好', '\c[a,b]');
 is("\c65,66,67", 'A,66,67', '\clist not valid');
 
 # L<S02/Literals/"\123 form" is illegal>
-#?rakudo todo 'Detecting malformed escape sequences NYI'
 {
     eval_dies_ok q{"\123"}, '"\123" form is no longer valid Perl 6';
     eval_dies_ok q{"\10"}, '"\10" form is no longer valid Perl 6';
@@ -77,11 +74,13 @@ is("\c65,66,67", 'A,66,67', '\clist not valid');
 
 # L<S02/Literals/"Only \0 remains" "only if"
 #   "next character" not in "'0'..'7'">
-#?rakudo todo 'Detecting malformed escape sequences NYI'
 {
     is "\08", chr(0) ~ '8', 'next char of \0 is 8 (> 7)';
     is "\0fff", chr(0) ~ 'fff', 'next char of \0 is `f`';
+}
 
+#?rakudo todo 'Detecting malformed escape sequences NYI'
+{
     eval_dies_ok q{"\00"}, 'next char of \0 is 0';
     eval_dies_ok q{"\01"}, 'next char of \0 is 1';
     eval_dies_ok q{"\05"}, 'next char of \0 is 5';