The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

 / 
Assert-Refute-0.17
River stage one • 5 direct dependents • 5 total dependents
/ Assert::Refute::Driver::More

NAME

Assert::Refute::Driver::More - Test::More compatibility layer for Asser::Refute suite

SYNOPSIS

In your test script:


            

              
              
use Test::More;
use Assert::Refute qw(:all); # in that order
my $def = contract {
    # don't use is/ok/etc here
    my ($c, @args) = @_;
    $c->is (...);
    $c->like (...);
};
is foo(), $bar, "Normal test";
subcontract "Repeated test block 1", $def, $value1;
like $string, qr/.../, "Another normal test";
subcontract "Repeated test block 2", $def, $value2;
done_testing;

DESCRIPTION

This class is useless in and of itself. It is auto-loaded as a bridge between Test::More and Assert::Refute, if Test::More has been loaded before Assert::Refute.

METHODS

We override some methods of Assert::Refute::Report below so that test results are fed to the more backend.

new

Will automatically load Test::Builder instance, which is assumed to be a singleton as of this writing.

refute( $condition, $message )

The allmighty refute() boils down to


            

              
              
ok !$condition, $message
   or diag $condition;

subcontract

Proxy to Test::More's subtest.

done_testing

Proxy for done_testing in Test::More.

do_log( $indent, $level, $message )

Just fall back to diag/note. Indentation is ignored.

get_count

Current test number.

is_passing

Tell if the whole set is passing.

get_result

Fetch result of n-th test.

0 is for passing tests, a true value is for failing ones.

LICENSE AND COPYRIGHT

This module is part of Assert::Refute suite.

Copyright 2017-2018 Konstantin S. Uvarin. <khedin at cpan.org>

This program is free software; you can redistribute it and/or modify it under the terms of the the Artistic License (2.0). You may obtain a copy of the full license at:

http://www.perlfoundation.org/artistic_license_2_0