Lines Matching refs:data
63 $UTF8_CROAK = "/^Cannot retrieve UTF8 data in non-UTF8 perl/";
73 warn "Dodgy data in section starting '$_'";
77 my $data = unpack 'u', $3;
78 $tests{$2} = $data;
107 is ($$scalar, $expected, "And it is the data we expected?");
198 thaw_scalar ('Short 8 bit utf8 data', "\xDF", 1);
199 thaw_scalar ('Long 8 bit utf8 data', "\xDF" x 256, 1);
200 thaw_scalar ('Short 24 bit utf8 data', chr 0xC0FFEE);
201 thaw_scalar ('Long 24 bit utf8 data', chr (0xC0FFEE) x 256);
204 thaw_fail ('Short 8 bit utf8 data', $UTF8_CROAK);
205 thaw_fail ('Long 8 bit utf8 data', $UTF8_CROAK);
206 thaw_fail ('Short 24 bit utf8 data', $UTF8_CROAK);
207 thaw_fail ('Long 24 bit utf8 data', $UTF8_CROAK);
209 my $bytes = thaw $tests{'Short 8 bit utf8 data as bytes'};
210 thaw_scalar ('Short 8 bit utf8 data', $$bytes);
211 thaw_scalar ('Long 8 bit utf8 data', $$bytes x 256);
212 $bytes = thaw $tests{'Short 24 bit utf8 data as bytes'};
213 thaw_scalar ('Short 24 bit utf8 data', $$bytes);
214 thaw_scalar ('Long 24 bit utf8 data', $$bytes x 256);
267 # A whole run of 2.x nfreeze data, uuencoded. The "mode bits" are the octal
290 begin 101 Short 8 bit utf8 data
295 begin 101 Short 8 bit utf8 data as bytes
300 begin 101 Long 8 bit utf8 data
316 begin 101 Short 24 bit utf8 data
321 begin 101 Short 24 bit utf8 data as bytes
326 begin 101 Long 24 bit utf8 data
408 begin 301 Short 8 bit utf8 data
413 begin 301 Short 8 bit utf8 data as bytes
418 begin 301 Long 8 bit utf8 data
434 begin 301 Short 24 bit utf8 data
439 begin 301 Short 24 bit utf8 data as bytes
444 begin 301 Long 24 bit utf8 data