Lines Matching refs:ret
31 my $ret = 0;
41 and $ret = $e->{EXIT}, next;
48 return ($flags, $ret, \@list_of_hashref);
68 my ($flags, $ret, $LoH) = digest_test $t;
79 $ret = 1 - $ret;
80 push (@new, [$test_name, $flags, {EXIT=>$ret}, @$LoH]);
103 my ($flags, $ret, $LoH) = digest_test $t;
104 next if $ret == 2;
106 push (@new, ["N-$test_name", "! $flags", {EXIT=>1-$ret}, @$LoH])
108 push (@new, ["P-$test_name", "'(' $flags ')'", {EXIT=>$ret}, @$LoH])
110 push (@new, ["NP-$test_name", "! '(' $flags ')'", {EXIT=>1-$ret}, @$LoH])
112 push (@new, ["NNP-$test_name", "! ! '(' $flags ')'", {EXIT=>$ret, @$LoH}])