|
Lines 1-8
Link Here
|
| 1 |
|
1 |
|
| 2 |
use strict; |
2 |
use Modern::Perl; |
| 3 |
use warnings; |
|
|
| 4 |
|
3 |
|
| 5 |
use Test::More tests => 19; |
4 |
use Test::More tests => 22; |
|
|
5 |
use Test::Warn; |
| 6 |
|
6 |
|
| 7 |
BEGIN { use_ok( 'C4::Boolean', qw( true_p ) ); } |
7 |
BEGIN { use_ok( 'C4::Boolean', qw( true_p ) ); } |
| 8 |
|
8 |
|
|
Lines 23-28
is( true_p('yes'), '1', 'recognizes \'yes\' as true' );
Link Here
|
| 23 |
is( true_p('y'), '1', 'recognizes \'y\' as true' ); |
23 |
is( true_p('y'), '1', 'recognizes \'y\' as true' ); |
| 24 |
is( true_p('YES'), '1', 'verified case insensitivity' ); |
24 |
is( true_p('YES'), '1', 'verified case insensitivity' ); |
| 25 |
|
25 |
|
| 26 |
is( true_p(undef), undef, 'recognizes undefined as not boolean' ); |
26 |
my $result; |
| 27 |
is( true_p('foo'), undef, 'recognizes \'foo\' as not boolean' ); |
27 |
warning_like { $result = true_p(undef) } |
| 28 |
is( true_p([]), undef, 'recognizes a reference as not a boolean' ); |
28 |
qr/^The given value does not seem to be interpretable as a Boolean value/, |
|
|
29 |
'Invalid boolean (undef) raises warning'; |
| 30 |
is( $result, undef, 'recognizes undefined as not boolean' ); |
| 31 |
warning_like { $result = true_p('foo') } |
| 32 |
qr/^The given value does not seem to be interpretable as a Boolean value/, |
| 33 |
'Invalid boolean (\'foo\') raises warning'; |
| 34 |
is( $result, undef, 'recognizes \'foo\' as not boolean' ); |
| 35 |
warning_like { $result = true_p([]) } |
| 36 |
qr/^The given value does not seem to be interpretable as a Boolean value/, |
| 37 |
'Invalid boolean (reference) raises warning'; |
| 38 |
is( $result, undef, 'recognizes a reference as not a boolean' ); |
| 39 |
|
| 40 |
1; |
| 29 |
- |
|
|