gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Skeleton test file for Catalogue.pm. Fails miserably so far. :)

This commit is contained in:
tonnesen 2002-05-31 22:17:12 +00:00
parent d9adf8154f
commit 14d422a951
1 changed files with 39 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
t/Catalogue.t Normal file
View File

@ -0,0 +1,39 @@
# $Id$
BEGIN { $| = 1; print "1..1\n"; }
END {print "not ok 1\n" unless $loaded;}
use C4::Catalogue;
$loaded = 1;
print "ok 1\n";
# getAuthor() test
$bibid=1234;
my $author=getAuthor(1234);
if ($author eq 'Farley Mowatt') {
print "ok 2\n";
} else {
print "not ok 2\n";
}
# getTitle() test
$bibid=1234;
my $title=getTitle(1234);
if ($title eq '') {
print "ok 2\n";
} else {
print "not ok 2\n";
}
# $Log$
# Revision 1.1 2002/05/31 22:17:12 tonnesen
# Skeleton test file for Catalogue.pm. Fails miserably so far. :)
#