Searched refs:thawed (Results 1 – 9 of 9) sorted by relevance
| /openbsd/gnu/usr.bin/perl/dist/Storable/t/ |
| H A D | code.t | 84 $thawed = thaw $freezed;
86 is($thawed->[0]->(), "JAPH");
87 is($thawed->[1]->(), 42);
95 $thawed = thaw $freezed;
103 $thawed = thaw $freezed;
110 $thawed = thaw $freezed;
112 is($thawed->(), "JAPH");
130 $thawed = retrieve "store$$";
132 is($thawed->[0]->(), "JAPH");
133 is($thawed->[1]->(), 42);
[all …]
|
| H A D | attach_errors.t | 109 my $thawed = eval {
112 isa_ok( $thawed, 'My::GoodThaw' );
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 = eval {
232 is($thawed->[0], $thawed->[1], 'References to the same object are attached properly');
274 my $thawed = undef;
[all …]
|
| H A D | circular_hook.t | 35 my $thawed = Storable::thaw( $string );
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->[0], $thawed->[0]->{Foo}->{Bar}, 'Circular is... well... circular' );
|
| 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 | utf8hash.t | 70 my $thawed = thaw(freeze(\%utf8hash));
72 is($nk = nkeys($thawed),
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/gnu/usr.bin/perl/dist/Storable/ |
| H A D | ChangeLog | 547 hook. Consequentially the object was not blessed at all when thawed.
|
| /openbsd/gnu/usr.bin/perl/pod/ |
| H A D | perl5180delta.pod | 1515 An object whose class implements C<STORABLE_attach> is now thawed only once
1516 when there are multiple references to it in the structure being thawed
1519 Restricted hashes were not always thawed correctly [perl #73972].
|
| /openbsd/gnu/usr.bin/perl/Porting/ |
| H A D | epigraphs.pod | 3111 Yet soon was thawed my old white mane,
|