Assert::Refute - an object-oriented testing and assertion tool.
Assert::Refute is there to add series of Test::More-like assertions into production code without turning the whole application into a test script.
This may be useful, for instance, when loading a plugin, validating a complex piece of data, or checking that different implementations (PP vs XS and more) behave the same.
Also it's fairly easy to extend it with new conditions that will play along nicely with both Test::More and Assert::Refute.
Say one needs to verify that a given user input or a plug-in module meets certain criteria:
use strict;
use warnings;
use Assert::Refute;
my $c = contract {
$_[0]->like( $user_input, qr/.../, "Format as expected" );
$_[0]->isa_ok( $some_object, "Some::Class" );
};
if ($c->get_passing) {
# so far, so good - move on!
} else {
croak "Contract failed: ".$c->get_tap;
};
The contract { CODE; } block would produce an object containing the result of
the checks. It will also mark the contract as failed if CODE dies.
If more fine-grained control is needed, a Assert::Refute->new is there
to make a fresh contract object.
Contracts can be nested just fine.
All of Test::More's assertions have a corresponding method
in Assert::Refute.
The most basic check in Assert::Refute is
$contract->refute( $what_went_unexpected, $why_we_care_about_it );.
This may be viewed as an inverted ok or assert:
sub refute {
my ($condition, $message) = @_;
ok (!$condition, $message)
or diag $condition;
};
It is assumed that a passing check is of no interest, while a failed one begs for details, and therefore a false value in the first argument means a pass test while a true one is considered to be also the explanation.
Think of it as an expection in a program, or a Unix command returning 0 on success, but different error codes on failure.
So all one needs to build a new assertion is to create a function that returns false when its arguments are fine, and an explanation of failure when they are not.
A Assert::Refute::Engine::Build module exists to simplify the task further:
package My::Check;
use Exporter qw(import);
use Assert::Refute::Engine::Build;
build_refute my_check => sub {
my ($got, $expected) = @_;
# ... a big and nasty check here
}, args => 2, export => 1;
1;
This would create an exported function called my_check in My::Check, as
well as a my_check method in Assert::Refute itself. So the following code
is going to be correct:
use Test::More tests => 1;
use My::Check;
my_check $foo, $bar, "foo is fine";
And this one, too:
# inside a running application
use Assert::Refute;
use My::Check(); # don't pollute global namespace
my $c = Assert::Refute->new;
$c->my_check( $foo, $bar, "runtime-generated foo is fine, too" );
if (!$c->get_passing) {
# ouch, something went wrong with $foo and $bar
};
It is also possible to validate the testing module itself, outputting details on specifically the tests with unexpected results:
use Assert::Refute::Unit;
use My::Check;
my $c = contract {
my_check $proper_foo, $bar;
my_check $good_foo, $bar;
my_check $broken_foo, $bar;
my_check $good_foo, $wrong_bar;
};
is_contract $c, "1100", "my_check works as expected";
done_testing;
Assert::Refute::Unit may be intermixed with regular Test::More, as long
as it comes AFTER Test::More.
Using refutation instead of assertion is similar to the falsifiability concept in modern science.
Or, quoting Leo Tolstoy, "All happy families are alike; each unhappy family is unhappy in its own way".
perl Makefile.PL
make
make test
make install
Lots of them. This software is still in alpha stage.
Please report bugs to https://github.com/dallaylaen/perl-test-refute/issues
This program is free software and can be (re)distributed on the same terms as Perl itself.
Copyright (c) 2017 Konstantin S. Uvarin