Help for this page

Select Code to Download

Select or download this

subtest "echo utf8" => sub {
  foreach my $msg ("simple", "", ("a" x 32768), "unicode \u2603 snowma
+n", "hiragana \u3072\u3089\u304c\u306a null \x00 ctrls \cA \cF \n \e 
+del \x7f end") {
...
    is($bytes, "binary(" . length($msg) . ") = $msg");
  }
};