Test that nqp::escape works on \r\n.

Raku · Nov 7, 2015 · c4c2b73 · c4c2b73
1 parent 61f36ca
commit c4c2b73
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/t/nqp/59-nqpop.t b/t/nqp/59-nqpop.t
@@ -126,7 +126,7 @@ ok( nqp::not_i(0) == 1, 'nqp::not_i');
 ok( nqp::not_i(1) == 0, 'nqp::not_i');
 ok( nqp::not_i(-1) == 0, 'nqp::not_i');
 
-ok(nqp::escape("\b \n \r \f \t \" \\ \e foo") eq '\\b \\n \\r \\f \\t \\" \\\\ \e foo','nqp::escape');
+ok(nqp::escape("\b \n \r \f \t \" \r\n \\ \e foo") eq '\\b \\n \\r \\f \\t \\" \\r\\n \\\\ \e foo','nqp::escape');
 my $var := 'foo';
 ok(nqp::escape($var) eq 'foo','nqp::escape works with literal');