Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
   #is($got, $expected, $test_name);
   is(printable($got), printable($expected), $test_name);
}
  2. or download this
    1..4
ok 1 - 00-7F
ok 2 - 80-FF,UTF8=0
ok 3 - 80-FF,UTF8=1
ok 4 - >FF
  3. or download this
    my @tests = (
   [ '00-7F',        "a"           ],
...
   my $got = $row->[0];  
   is(printable($got), printable($input), $test_name);
}