t/Boolean.t

   1 #!/usr/bin/perl
   2 #
   3
   4 use strict;
   5 use C4::Boolean;
   6
   7 use vars qw( @tests );
   8 use vars qw( $loaded );
   9
  10 sub f ($) {
  11    my($x) = @_;
  12    my $it;
  13    # Returns either the value returned prefixed with 'OK:',
  14    # or the caught exception (string expected)
  15    local($@);
  16    eval {
  17       $it = 'OK:' . C4::Boolean::true_p($x);
  18    };
  19    if ($@) {
  20       $it = $@;
  21       $it =~ s/ at \S+ line \d+$\.\n//s;
  22    }
  23    return $it;
  24 }
  25
  26 BEGIN {
  27    @tests = (
  28    [
  29       'control',
  30       sub { C4::Boolean::INVALID_BOOLEAN_STRING_EXCEPTION },
  31       'The given value does not seem to be interpretable as a Boolean value',
  32       undef
  33
  34    # False strings
  35    ], [
  36       '"0"',     \&f, 'OK:0', '0'
  37    ], [
  38       '"false"', \&f, 'OK:0', 'false'
  39    ], [
  40       '"off"',   \&f, 'OK:0', 'off'
  41    ], [
  42       '"no"',    \&f, 'OK:0', 'no'
  43
  44    # True strings
  45    ], [
  46       '"1"',     \&f, 'OK:1', '1'
  47    ], [
  48       '"true"',  \&f, 'OK:1', 'true'
  49    ], [
  50       '"on"',    \&f, 'OK:1', 'on'
  51    ], [
  52       '"yes"',   \&f, 'OK:1', 'yes'
  53    ], [
  54       '"YES"',   \&f, 'OK:1', 'YES'     # verify case insensitivity
  55
  56    # Illegal strings
  57    ], [
  58       'undef',   \&f, C4::Boolean::INVALID_BOOLEAN_STRING_EXCEPTION, undef
  59    ], [
  60       '"foo"',   \&f, C4::Boolean::INVALID_BOOLEAN_STRING_EXCEPTION, 'foo'
  61    ],
  62 );
  63 }
  64
  65 BEGIN { $| = 1; printf "1..%d\n", scalar(@tests); }
  66 END {print "not ok 1\n" unless $loaded;}
  67 $loaded = 1;
  68
  69
  70 # Run all tests in sequence
  71 for (my $i = 1; $i <= scalar @tests; $i += 1) {
  72    my $test = $tests[$i - 1];
  73    my($title, $f, $expected, $input) = @$test;
  74    die "not ok $i (malformed test case)\n"
  75       unless @$test == 4 && ref $f eq 'CODE';
  76
  77    my $output = &$f($input);
  78    if (
  79          (!defined $output && !defined $expected)
  80       || (defined $output && defined $expected && $output eq $expected)
  81    ) {
  82       print "ok $i - $title\n";
  83    } else {
  84       print "not ok $i - $title: got ",
  85             (defined $output? "\"$output\"": 'undef'),
  86             ', expected ',
  87             (defined $expected? "\"$expected\"": 'undef'),
  88             "\n";
  89    }
  90 }
  91
  92
  93
  94
  95