--- CBOR-XS/t/58_hv.t 2016/04/24 13:15:19 1.1 +++ CBOR-XS/t/58_hv.t 2016/04/24 19:31:56 1.2 @@ -1,4 +1,4 @@ -BEGIN { $| = 1; print "1..16\n"; } +BEGIN { $| = 1; print "1..18\n"; } # none of the other tests serialise hv's, gross # also checks utf8_strings @@ -49,4 +49,11 @@ $enc = $utf8_strings->encode ({ "\x{8f}" => undef }); print $enc ne (pack "H*", "a162c28ff6") ? "not " : "", "ok 15\n"; -print "ok 16\n"; +$enc = $utf8_strings->encode ({ "\x{8f}gix\x{ff}x" => undef }); +print $enc ne (pack "H*", "a168c28f676978c3bf78f6") ? "not " : "", "ok 16\n"; + +$dec = decode_cbor pack "H*", "a168c28f676978c3bf78f6"; +print +(keys %$dec)[0] ne "\x{8f}gix\x{ff}x" ? "not " : "", "ok 17\n"; + +print "ok 18\n"; +