55 lines
1.1 KiB
Perl
55 lines
1.1 KiB
Perl
# $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
|
|
#
|