Test for p5 string conversion - partly failing

sorear · Oct 1, 2011 · 50e0320 · 50e0320
1 parent c43c708
commit 50e0320
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/t/p5/strings.t b/t/p5/strings.t
@@ -0,0 +1,5 @@
+use Test;
+is(eval("'Yet Another Perl Hacker'",:lang<perl5>),"Yet Another Perl Hacker");
+is(eval('"Yet Ano\0ther P\0erl Hacker"',:lang<perl5>),"Yet Ano\0ther P\0erl Hacker","Null Bytes in the middle of a converted string");
+is(eval('"ąęóśćż"',:lang<perl5>),"ąęóśćż","utf8 in literals");
+done;