View | Details | Raw Unified | Return to bug 13814
Collapse All | Expand All

(-)a/t/Boolean.t (-7 / +18 lines)
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
- 

Return to bug 13814