[Koha-cvs] CVS: koha/t Catalogue.t,NONE,1.1
Steve Tonnesen
tonnesen at users.sourceforge.net
Sat Jun 1 00:17:14 CEST 2002
Update of /cvsroot/koha/koha/t
In directory usw-pr-cvs1:/tmp/cvs-serv28009
Added Files:
Catalogue.t
Log Message:
Skeleton test file for Catalogue.pm. Fails miserably so far. :)
--- NEW FILE ---
# $Id: Catalogue.t,v 1.1 2002/05/31 22:17:12 tonnesen Exp $
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: Catalogue.t,v $
# Revision 1.1 2002/05/31 22:17:12 tonnesen
# Skeleton test file for Catalogue.pm. Fails miserably so far. :)
#
More information about the Koha-cvs
mailing list