Lines Matching refs:thawed
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->[0], $thawed->[0]->{Foo}->{Bar}, 'Circular is... well... circular' );