1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
#!perl
use warnings;
use strict;
use Test::More tests => 7;
use Test::Exception;
use Carp::Assert::More;
my $af = qr/Assertion failed/;
MAIN: {
lives_ok( sub { assert_integer_between( 5, 1, 10 ) } );
lives_ok( sub { assert_integer_between( -5, -10, -1 ) } );
lives_ok( sub { assert_integer_between( 57, 1, 100 ) } );
throws_ok( sub { assert_integer_between( 3.14, 1, 10 ) }, $af );
throws_ok( sub { assert_integer_between( -5, 1, 10 ) }, $af );
throws_ok( sub { assert_integer_between( 'x', 1, 10 ) }, $af );
throws_ok( sub { assert_integer_between( undef, 1, 10 ) }, $af );
}
exit 0;
|
