NAME
Test::Assert - Assertion methods for those who like JUnit.
SYNOPSIS
# Use as base class
package My::TestMethod;
use base 'Test::Assert';
sub test_method {
my $self = shift;
$self->assert_true(1, "pass");
$self->assert_true(0, "fail");
}
# Use as imported methods
package My::Test;
use Test::Assert ':all';
assert_true(1, "pass");
assert_true(0, "fail");
use Test::More;
assert_test(sub { require_ok($module) });
# Use for debugging purposes
# Assertions are compiled only if Test::Assert was used
# in the main package.
package My::Package;
use Test::Assert 'fail', 'ASSERT';
my $state = do_something();
assert_true($state >= 1 && $state <=2) if ASSERT;
if ($state == 1) {
# 1st state
do_foo();
} elsif ($state == 2) {
# 2nd and last state
do_bar();
}
my $a = get_a();
my $b = get_b();
assert_num_not_equals(0, $b) if ASSERT;
my $c = $a / $b;
$ perl -MTest::Assert script.pl # sets Test::Assert::ASSERT to 1
DESCRIPTION
This class provides a set of assertion methods useful for writing tests.
The API is based on JUnit4 and Test::Unit and the methods die on
failure.
The assertion methods can be used in class which is derived from
Test::Assert or used as standard Perl functions after importing them
into user's namespace.
Test::Assert can also wrap standard Test::Simple, Test::More or other
Test::Builder-based tests.
The assertions can be also used for run-time checking.
AUTHOR
Piotr Roszatycki <
[email protected]>
COPYRIGHT
Copyright (C) 2008, 2009 by Piotr Roszatycki <
[email protected]>.
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
See
http://www.perl.com/perl/misc/Artistic.html
