| Lines 2-20
          
      
      
        Link Here | 
        
          | 2 | use strict; | 2 | use strict; | 
        
          | 3 | use warnings; | 3 | use warnings; | 
        
          | 4 |  | 4 |  | 
          
            
              | 5 | use Test::More tests => 13; | 5 | use Test::More tests => 19; | 
        
          | 6 |  | 6 |  | 
        
          | 7 | BEGIN { use_ok( 'C4::Boolean', qw( true_p ) ); } | 7 | BEGIN { use_ok( 'C4::Boolean', qw( true_p ) ); } | 
        
          | 8 |  | 8 |  | 
        
          | 9 | is( true_p('0'),     '0', 'recognizes \'0\' as false' ); | 9 | is( true_p('0'),     '0', 'recognizes \'0\' as false' ); | 
            
              |  |  | 10 | is( true_p('nil'),     '0', 'recognizes \'nil\' as false' ); | 
        
          | 10 | is( true_p('false'), '0', 'recognizes \'false\' as false' ); | 11 | is( true_p('false'), '0', 'recognizes \'false\' as false' ); | 
        
          | 11 | is( true_p('off'),   '0', 'recognizes \'off\' as false' ); | 12 | is( true_p('off'),   '0', 'recognizes \'off\' as false' ); | 
        
          | 12 | is( true_p('no'),    '0', 'recognizes \'no\' as false' ); | 13 | is( true_p('no'),    '0', 'recognizes \'no\' as false' ); | 
            
              |  |  | 14 | is( true_p('n'),    '0', 'recognizes \'n\' as false' ); | 
            
              | 15 | is( true_p('NO'),  '0', 'verified case insensitivity' ); | 
        
          | 13 |  | 16 |  | 
        
          | 14 | is( true_p('1'),    '1', 'recognizes \'1\' as true' ); | 17 | is( true_p('1'),    '1', 'recognizes \'1\' as true' ); | 
            
              |  |  | 18 | is( true_p('-1'),    '1', 'recognizes \'-1\' as true' ); | 
            
              | 19 | is( true_p('t'), '1', 'recognizes \'t\' as true' ); | 
        
          | 15 | is( true_p('true'), '1', 'recognizes \'true\' as true' ); | 20 | is( true_p('true'), '1', 'recognizes \'true\' as true' ); | 
        
          | 16 | is( true_p('on'),   '1', 'recognizes \'on\' as true' ); | 21 | is( true_p('on'),   '1', 'recognizes \'on\' as true' ); | 
        
          | 17 | is( true_p('yes'),  '1', 'recognizes \'yes\' as true' ); | 22 | is( true_p('yes'),  '1', 'recognizes \'yes\' as true' ); | 
            
              |  |  | 23 | is( true_p('y'),  '1', 'recognizes \'y\' as true' ); | 
        
          | 18 | is( true_p('YES'),  '1', 'verified case insensitivity' ); | 24 | is( true_p('YES'),  '1', 'verified case insensitivity' ); | 
        
          | 19 |  | 25 |  | 
        
          | 20 | is( true_p(undef), undef, 'recognizes undefined as not boolean' ); | 26 | is( true_p(undef), undef, 'recognizes undefined as not boolean' ); | 
            
              | 21 | -  |  |  |