RT #122341 add/fudge unicode linesep tests for parrot only

Raku · Jul 21, 2014 · efcdc6b · efcdc6b
1 parent 2c677bc
commit efcdc6b
Showing 1 changed file with 9 additions and 2 deletions.
diff --git a/S02-lexical-conventions/unicode.t b/S02-lexical-conventions/unicode.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 38;
+plan 44;
 
 # L<S02/"Lexical Conventions"/"Perl is written in Unicode">
 
@@ -108,7 +108,14 @@ is((do { my $दूसरा = 2; sub टोटल ($x) { $x + 2 }; टोटल
 
 # L<S02/Unicode Semantics/Perl can count Unicode line and paragraph separators>
 
-#?rakudo: todo 'PARAGRAPH SEPARATOR does not work to separate lines: RT #122341'
+eval_lives_ok "\{ 1 \} \x0a \{ 1 \}", "Unicode 000A (LINE FEED (LF)) can terminate lines";
+#?rakudo.parrot skip 'RT #122341 all codepoints that match \v should work as line separator'
+eval_lives_ok "\{ 1 \} \x0b \{ 1 \}", "Unicode 000B (LINE TABULATION) can terminate lines";
+eval_lives_ok "\{ 1 \} \x0c \{ 1 \}", "Unicode 000C (FORM FEED (FF)) can terminate lines";
+eval_lives_ok "\{ 1 \} \x0d \{ 1 \}", "Unicode 000D (CARRIAGE RETURN (CR)) can terminate lines";
+eval_lives_ok "\{ 1 \} \x85 \{ 1 \}", "Unicode 0085 (NEXT LINE (NEL)) can terminate lines";
+#?rakudo.parrot 2 skip 'RT #122341 all codepoints that match \v should work as line separator'
+eval_lives_ok "\{ 1 \} \x2028 \{ 1 \}", "Unicode 2028 (LINE SEPARATOR) can terminate lines";
 eval_lives_ok "\{ 1 \} \x2029 \{ 1 \}", "Unicode 2029 (PARAGRAPH SEPARATOR) can terminate lines";
 
 # L<S02/Bracketing Characters/If a character is already used>