Lines Matching refs:result
8 my $result = shift;
9 printf("%sok %d\n", ($result ? "" : "not "), ++$numTest);
10 $result;
35 my $result = eval { $calculator->add(4, 6, 7) };
36 Test($result and $result eq 17)
38 (defined($result) ? $result : "undef"));
40 $result = eval { $calculator->multiply(2, 3, 4) };
41 Test($result and $result eq 24);
43 $result = eval { $calculator->subtract(27, 12) };
44 Test($result and $result eq 15);
46 $result = eval { $calculator->subtract(27, 12, 7) };
49 $result = eval { $calculator->divide(15, 3) };
50 Test($result and $result eq 5);
52 $result = eval { $calculator->divide(27, 12, 7) };
55 $result = eval { $calculator->divide(27, 0) };