Handle \r\n correctly

It's a single grapheme so other rules are not going to work and it falls back to ␦.
Raku · Aug 30, 2019 · 61cedc1 · 61cedc1
1 parent 0572755
commit 61cedc1
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 0 deletions.
diff --git a/lib/Whateverable.pm6 b/lib/Whateverable.pm6
@@ -169,6 +169,7 @@ multi method filter($response where
 #↓ Regular response (not a gist)
 multi method filter($text is copy) {
     ansi-to-irc($text).trans:
+        “\r\n” => ‘␍␤’,
         “\n” => ‘␤’,
         3.chr => 3.chr, 0xF.chr => 0xF.chr, # keep these for IRC colors
         |((^32)».chr Z=> (0x2400..*).map(*.chr)), # convert all unreadable ASCII crap

diff --git a/xt/evalable.t b/xt/evalable.t
@@ -121,6 +121,10 @@ $t.test(‘␤ works like an actual newline’,
         /^ <me($t)>‘, rakudo-moar ’<sha>‘: OUTPUT: «hello world!␤»’ $/);
 }
 
+$t.test(‘special characters (\r\n)’,
+        ‘e: say “\r\n”’,
+        /^ <me($t)>‘, rakudo-moar ’<sha>‘: OUTPUT: «␍␤»’ $/);
+
 # URLs
 
 $t.test(‘fetching code from urls’,