# $Id$

#use strict;

BEGIN { $| = 1; print "1..13\n"; }
END {print "not ok 1\n" unless $loaded;}
use C4::Input;
$loaded = 1;
print "ok 1\n";

my $TestCount=1;

#-----------------
# Test ISBN validation

my $isbn;

# Good numbers
foreach $isbn ('0836213092','087784805X','087784805x','1878685899') {
    PrintNextTestResult ( &checkvalidisbn($isbn), "Good ISBN: $isbn" ) 
}

# Bad numbers
foreach $isbn ('0836213192','087784804X','087784806x','1878685898', 
		'', ' ', 'abc', '1234567890123') {
    PrintNextTestResult ( ! &checkvalidisbn($isbn), "Bad ISBN: $isbn" ) 
}



#-----------------------
sub PrintNextTestResult {
    # modifies global var $TestCount
    my ($ThisTestResult, $TestComment )=@_;

    $TestCount++;

    if ( $ThisTestResult ) {
        print "ok $TestCount\n";
    } else {
	print STDERR "\nTest failed: $TestComment\n";
        print "not ok $TestCount\n";
    }

} # sub PrintNextTestResult

#-----------------------
# $Log$
# Revision 1.2  2002/06/20 18:18:06  tonnesen
# 47 files to go, 47 files to go, take one down, pass it around...
# 46 files to go.
#
# Revision 1.1.2.1  2002/06/20 15:19:34  amillar
# Test valid ISBN numbers in Input.pm
#