Searched refs:thawed (Results 1 - 7 of 7) sorted by relevance
| /openbsd-current/gnu/usr.bin/perl/dist/Storable/t/ |
| H A D | code.t | 44 our ($freezed, $thawed, @obj, @res, $blessed_code);
84 $thawed = thaw $freezed;
86 is($thawed->[0]->(), "JAPH");
87 is($thawed->[1]->(), 42);
88 is($thawed->[2]->(), "blessed");
89 is($thawed->[3]->(), "Another::Package");
90 is(prototype($thawed->[4]), prototype($obj[0]->[4]));
95 $thawed = thaw $freezed;
97 is($thawed->{"a"}->(), "srt");
98 is($thawed
[all...] |
| H A D | circular_hook.t | 35 my $thawed = Storable::thaw( $string );
38 # is_deeply( $array, $thawed, 'Circular hooked objects work' );
39 is( ref($thawed), 'ARRAY', 'Top level ARRAY' );
40 is( scalar(@$thawed), 1, 'ARRAY contains one element' );
41 isa_ok( $thawed->[0], 'Foo' );
42 is( scalar(keys %{$thawed->[0]}), 1, 'Foo contains one element' );
43 isa_ok( $thawed->[0]->{Foo}, 'Bar' );
44 is( scalar(keys %{$thawed->[0]->{Foo}}), 1, 'Bar contains one element' );
45 isa_ok( $thawed->[0]->{Foo}->{Bar}, 'Foo' );
46 is( $thawed
[all...] |
| H A D | attach_singleton.t | 44 my $thawed = Storable::thaw( $frozen );
47 is_deeply( $struct, $thawed, 'Struct superficially looks like the original' );
50 is( "$struct->[1]", "$thawed->[1]", 'Singleton thaws correctly' );
54 is_deeply( $struct, $thawed, 'Empiric testing confirms correct behaviour' );
58 $thawed = Storable::thaw($frozen);
59 is("$thawed->[0]", "$thawed->[1]", "Multiple Singletons thaw correctly");
|
| H A D | attach_errors.t | 109 my $thawed = eval {
112 isa_ok( $thawed, 'My::GoodThaw' );
113 is( $thawed->{foo}, 'bar', 'My::GoodThaw thawed correctly as expected' );
148 my $thawed = undef;
150 $thawed = Storable::thaw( $frozen );
187 my $thawed = eval {
190 isa_ok( $thawed, 'My::GoodAttach' );
191 is( ref($thawed), 'My::GoodAttach::Subclass',
225 my $thawed
[all...] |
| H A D | utf8hash.t | 70 my $thawed = thaw(freeze(\%utf8hash));
72 is($nk = nkeys($thawed),
74 "scalar keys \%{\$thawed} (nkeys=$nk)");
75 for my $k (sort keys %$thawed){
76 is($utf8hash{$k}, $thawed->{$k}, "frozen item chr($utf8hash{$k})");
|
| H A D | freeze.t | 108 my $thawed = thaw $thaw_me;
|
| /openbsd-current/gnu/usr.bin/perl/dist/Storable/ |
| H A D | Storable.pm | 1282 ... })/> will throw an exception when thawed.
1299 be thawed.
|
Completed in 428 milliseconds