[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/t Catalogue.t,NONE,1.1
From: |
Steve Tonnesen |
Subject: |
[Koha-cvs] CVS: koha/t Catalogue.t,NONE,1.1 |
Date: |
Fri, 31 May 2002 15:17:14 -0700 |
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. :)
#
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/t Catalogue.t,NONE,1.1,
Steve Tonnesen <=