Lines Matching refs:result
62 my $result = eval {thaw $test};
63 isa_ok ($result, 'SCALAR', "Check thawing test data");
65 is ($$result, 'Hell', 'and gives the expected data');
91 my $result = eval {thaw $real_thing};
92 is ($result, undef, "By default should not be able to thaw");
96 $result = eval {thaw $real_thing};
97 isa_ok ($result, 'ARRAY', "With flag should now thaw");
104 is (@$result, 4, "4 elements in array");
105 like ($$result[0],
108 is ($$result[1], "$kingdom was correct", "2nd element");
109 cmp_ok ($$result[2] ^ $value, '==', 0, "3rd element") or
110 printf "# expected %#X, got %#X\n", $value, $$result[2];
111 is ($$result[3], "The End", "4th element");
114 $result = eval {thaw $test};
115 isa_ok ($result, 'SCALAR', "CHORUS: check thawing test data");
117 is ($$result, 'Hell', " and gives the expected data");
130 $result = eval {thaw $test_kludge};
131 is ($result, undef, "By default should not be able to thaw");
135 $result = eval {thaw $test};
136 isa_ok ($result, 'SCALAR', "CHORUS: check thawing test data");
138 is ($$result, 'Hell', " and gives the expected data");
143 $result = eval {thaw $test_kludge};
144 isa_ok ($result, 'SCALAR', "should be able to thaw kludge data");
146 is ($$result, 'Heck', "and gives expected data");
148 $result = eval {thaw $test};
149 is ($result, undef, "But now can't thaw real data");
155 $result = eval {thaw $test};
156 isa_ok ($result, 'SCALAR', "CHORUS: check thawing test data");
158 is ($$result, 'Hell', " and gives the expected data");