Koha/t/Boolean.t
Joe Atzberger a1fe32d2f8 Total Test Overhaul! Most of these were stubs, and still are.
Input.t was replaced because it tested a now obsolete function.
Input.pm has that function commented out.
Several files were renamed to match their counterparts or
correct misspellingz.

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
2007-10-18 16:26:44 -05:00

95 lines
2 KiB
Perl
Executable file

#!/usr/bin/perl
#
use strict;
use C4::Boolean;
use vars qw( @tests );
use vars qw( $loaded );
sub f ($) {
my($x) = @_;
my $it;
# Returns either the value returned prefixed with 'OK:',
# or the caught exception (string expected)
local($@);
eval {
$it = 'OK:' . C4::Boolean::true_p($x);
};
if ($@) {
$it = $@;
$it =~ s/ at \S+ line \d+$\.\n//s;
}
return $it;
}
BEGIN {
@tests = (
[
'control',
sub { C4::Boolean::INVALID_BOOLEAN_STRING_EXCEPTION },
'The given value does not seem to be interpretable as a Boolean value',
undef
# False strings
], [
'"0"', \&f, 'OK:0', '0'
], [
'"false"', \&f, 'OK:0', 'false'
], [
'"off"', \&f, 'OK:0', 'off'
], [
'"no"', \&f, 'OK:0', 'no'
# True strings
], [
'"1"', \&f, 'OK:1', '1'
], [
'"true"', \&f, 'OK:1', 'true'
], [
'"on"', \&f, 'OK:1', 'on'
], [
'"yes"', \&f, 'OK:1', 'yes'
], [
'"YES"', \&f, 'OK:1', 'YES' # verify case insensitivity
# Illegal strings
], [
'undef', \&f, C4::Boolean::INVALID_BOOLEAN_STRING_EXCEPTION, undef
], [
'"foo"', \&f, C4::Boolean::INVALID_BOOLEAN_STRING_EXCEPTION, 'foo'
],
);
}
BEGIN { $| = 1; printf "1..%d\n", scalar(@tests); }
END {print "not ok 1\n" unless $loaded;}
$loaded = 1;
# Run all tests in sequence
for (my $i = 1; $i <= scalar @tests; $i += 1) {
my $test = $tests[$i - 1];
my($title, $f, $expected, $input) = @$test;
die "not ok $i (malformed test case)\n"
unless @$test == 4 && ref $f eq 'CODE';
my $output = &$f($input);
if (
(!defined $output && !defined $expected)
|| (defined $output && defined $expected && $output eq $expected)
) {
print "ok $i - $title\n";
} else {
print "not ok $i - $title: got ",
(defined $output? "\"$output\"": 'undef'),
', expected ',
(defined $expected? "\"$expected\"": 'undef'),
"\n";
}
}