Home
last modified time | relevance | path

Searched refs:U_1FFC_bytes (Results 1 – 1 of 1) sorted by relevance

/openbsd/gnu/usr.bin/perl/t/op/
H A Dpack.t1489 my $U_1FFC_bytes = byte_utf8a_to_utf8n("\341\277\274");
1492 my (@x) = unpack("a(U0)U", "b$U_1FFC_bytes");
1496 is(pack("a(U0)U", "b", 8188), "b$U_1FFC_bytes");
1503 is(join(',', unpack("aC/UU", "b\0$U_1FFC_bytes")), 'b,8188');
1504 is(join(',', unpack("aC/CU", "b\0$U_1FFC_bytes")), 'b,8188');
1507 my $first_byte = ord substr($U_1FFC_bytes, 0, 1);
1509 is(join(',', unpack("aU0C/UU", "b\0$U_1FFC_bytes")), "b,$first_byte");
1510 is(join(',', unpack("aU0C/CU", "b\0$U_1FFC_bytes")), "b,$first_byte");