Storable/t/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->{"b"}->(), "JAPH");
103 $thawed  = thaw $freezed;
105 is($thawed->(), (ord "A") == 193 ? -118 : 42);
110 $thawed  = thaw $freezed;
112 is($thawed->(), "JAPH");
130 $thawed = retrieve "store$$";
132 is($thawed->[0]->(), "JAPH");
133 is($thawed->[1]->(), 42);
134 is($thawed->[2]->(), "blessed");
135 is($thawed->[3]->(), "Another::Package");
136 is(prototype($thawed->[4]), prototype($obj[0]->[4]));
141 $thawed = retrieve "store$$";
144 is($thawed->[0]->(), "JAPH");
145 is($thawed->[1]->(), 42);
146 is($thawed->[2]->(), "blessed");
147 is($thawed->[3]->(), "Another::Package");
148 is(prototype($thawed->[4]), prototype($obj[0]->[4]));
161 	eval { $thawed  = thaw $freezed };
182 	eval { $thawed  = thaw $freezed };
184 	like($$thawed, qr/^sub/);
212     eval { $thawed = thaw $freezed };
214     is($thawed->(), "JAPH");
217     eval { $thawed = thaw $freezed };
234 	eval { $thawed = thaw $freezed };
247     eval { $thawed = thaw $freezed };
249     is($thawed->(), 42);
269     eval { $thawed  = thaw $freezed };
275 	is($thawed->[0]->(), "JAPH");
276 	is($thawed->[1]->(), 42);
277 	is($thawed->[2]->(), "blessed");
278 	is($thawed->[3]->(), "Another::Package");
279 	is(prototype($thawed->[4]), prototype($obj[0]->[4]));