Lines Matching defs:ok
78 @EXPORT = qw(ok);
90 $self->export_to_level(1, $self, 'ok');
93 sub ok {
96 $Test->ok($test, $name);
351 =item B<ok>
353 $Test->ok($test, $name);
356 like Test::Simple's ok().
360 sub ok {
393 @$result{ 'ok', 'actual_ok' } = ( ( $todo ? 1 : 0 ), 0 );
396 @$result{ 'ok', 'actual_ok' } = ( 1, $test );
399 $out .= "ok";
479 $self->ok($test, $name);
495 $self->ok($test, $name);
553 $self->ok($test, $name);
569 $self->ok($test, $name);
633 $self->ok($this =~ m/$usable_regex/, $name);
667 my $ok = 0;
670 $ok = $self->ok( 0, $name );
672 return $ok;
679 $ok = $self->ok( $test, $name );
682 unless( $ok ) {
692 return $ok;
716 my $ok = $self->ok($test, $name);
718 unless( $ok ) {
726 return $ok;
783 'ok' => 1,
790 my $out = "ok";
810 print "not ok $tnum # TODO $why\n";
827 'ok' => 1,
834 my $out = "not ok";
880 $Test->ok($test);
901 ok 1
902 ok 2
903 ok 3
907 ok
908 ok
909 ok
971 It's ok for your test to change where STDOUT and STDERR point to,
993 a failing test (C<ok() || diag()>) it "passes through" the failure.
995 return ok(...) || diag(...);
1081 Where normal "ok/not ok" test output should go.
1237 'ok' => 1,
1268 return map { $_->{'ok'} } @Test_Results;
1278 { 'ok' => is the test considered a pass?
1279 actual_ok => did it literally say 'ok'?
1285 'ok' is true if Test::Harness will consider the test to be a pass.
1288 printed 'ok' or 'not ok'. This is for examining the result of 'todo'
1305 They are considered ok, but the name and actual_ok is left undef.
1307 For example "not ok 23 - hole count # TODO insufficient donuts" would
1311 { ok => 1, # logically, the test passed since it's todo
1385 through ok. If anything is wrong it will die with a fairly friendly
1485 my $num_failed = grep !$_->{'ok'}, @Test_Results[0..$Expected_Tests-1];