>perl588\bin\perl -MTest::More=no_plan -e"$s=join '', map chr, 0x2660..0x2666; is(unpack('A4',$s), substr($s,0,4))"
not ok 1
[...]
1..1
# Looks like you failed 1 test of 1.

>perl589\bin\perl -MTest::More=no_plan -e"$s=join '', map chr, 0x2660..0x2666; is(unpack('A4',$s), substr($s,0,4))"
not ok 1
[...]
1..1
# Looks like you failed 1 test of 1.

>perl5100\bin\perl -MTest::More=no_plan -e"$s=join '', map chr, 0x2660..0x2666; is(unpack('A4',$s), substr($s,0,4))"
ok 1
1..1