Lines Matching refs:bytes
38 use bytes ();
59 # warn sprintf "%d,%d", bytes::length($u), is_utf8($u);
61 # warn sprintf "%d,%d" ,bytes::length($b), is_utf8($b);
171 my $bytes = my $char = chr 27182;
172 utf8::encode ($bytes);
182 ok (!exists $just_utf8->{$bytes}, "bytes key absent?");
184 $orig = {$bytes => 1};
191 cmp_ok (scalar keys %$just_bytes, '==', 1, "1 key in bytes?");
192 cmp_ok ($just_bytes->{$bytes}, '==', 1, "bytes key present?");
196 if length $char == length $bytes;
198 $orig = {$bytes => length $bytes, $char => length $char};
206 cmp_ok ($both->{$bytes}, '==', length $bytes, "bytes key present?");