Lines Matching defs:pass
52 my ($pass, $where, $name, @mess) = @_;
59 $out = $pass ? "ok $test - $name" : "not ok $test - $name";
61 $out = $pass ? "ok $test" : "not ok $test";
67 unless ($pass) {
76 return $pass;
86 my ($pass, $name, @mess) = @_;
87 _ok($pass, _where(), $name, @mess);
138 my $pass;
141 $pass = !defined $got && !defined $expected;
144 $pass = $got eq $expected;
147 unless ($pass) {
151 _ok($pass, _where(), $name, @mess);
157 my $pass;
160 $pass = defined $got || defined $isnt;
163 $pass = $got ne $isnt;
166 unless( $pass ) {
170 _ok($pass, _where(), $name, @mess);
176 my $pass;
181 $pass = eval "\$got $type \$expected";
183 unless ($pass) {
197 _ok($pass, _where(), $name, @mess);
208 my $pass;
219 $pass = $got == $expected;
222 $pass = ($got <= $range) && ($got >= - $range);
225 $pass = abs ($diff / $expected) < $range;
227 unless ($pass) {
234 _ok($pass, _where(), $name, @mess);
240 my $pass;
242 $pass = $got =~ $expected;
243 unless ($pass) {
248 $pass = $got =~ /$expected/;
249 unless ($pass) {
254 _ok($pass, _where(), $name, @mess);
257 sub pass {
274 # Note: can't pass multipart messages since we try to
571 my $pass = $resolve->($results);
572 unless ($pass) {
585 _ok($pass, _where(), "fresh_perl - $name");