#!perl -T
use warnings;
use strict;
use Test::More tests => 6;
use Carp::Assert::More;
use constant PASS => 1;
use constant FAIL => 2;
my @cases = (
[ 5, PASS ],
[ 0, PASS ],
[ 0.4, PASS ],
[ -10, FAIL ],
[ "dog", PASS ],
[ "14.", PASS ],
);
for my $case ( @cases ) {
my ($val,$status) = @$case;
my $desc = "Checking \"$val\"";
eval { assert_nonnegative( $val ) };
if ( $status eq FAIL ) {
like( $@, qr/Assertion.+failed/, $desc );
}
else {
is( $@, '', $desc );
}
}