view release on metacpan or  search on metacpan

lib/Test/Most.pm  view on Meta::CPAN

    # 'magic' goto to avoid updating the callstack
    goto &Test::Builder::Module::import;
}

sub explain {
    _explain(\&Test::More::note, @_);
}


sub timeit(&;$) {
    my ( $code, $message ) = @_;
    unless($HAVE_TIME_HIRES) {
        Test::Most::diag("timeit: Time::HiRes not installed");
        $code->();
    }
    if ( !$message ) {
        my ( $package, $filename, $line ) = caller;
        $message = "$filename line $line";
    }
    my $start = [Time::HiRes::gettimeofday()];

t/lib/OurTester.pm  view on Meta::CPAN

        }
        $builder->{TEST_MOST_test_failed} = 0;
        my $result = $ok->(@_);

        # Not a fun interface
        $builder->{TEST_MOST_test_failed} = !( $builder->details )[-1]->{actual_ok};
        return $result;
    };
}

sub dies(&;$) {
    my ( $sub, $message ) = @_;
    _die_or_bail($sub, \&_set_die, $message, \$DIED);
}

sub bails(&;$) {
    my ( $sub, $message ) = @_;
    _die_or_bail($sub, \&_set_bail, $message, \$BAILED);
}

sub _die_or_bail {
    my ($sub, $internal_sub, $message, $die_or_bail) = @_;
    $internal_sub->();
    $BUILDER->todo_start('Planned failure');

    # ignore the error messages as they will be confusing.