- or download this
use strict;
use warnings;
...
ok($buf eq $expected, "print $test_name $enc");
}
}
- or download this
>c:\progs\perl588\bin\perl test.pl
1..28
...
ok 27 - print long 10
ok 28 - print long 11
# Looks like you failed 6 tests of 28.
- or download this
>c:\progs\perl5100\bin\perl test.pl
1..28
...
ok 26 - print long 01
ok 27 - print long 10
ok 28 - print long 11