From 14d422a951d47715ee940abbfb50a5edde960f2d Mon Sep 17 00:00:00 2001 From: tonnesen Date: Fri, 31 May 2002 22:17:12 +0000 Subject: [PATCH] Skeleton test file for Catalogue.pm. Fails miserably so far. :) --- t/Catalogue.t | 39 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 39 insertions(+) create mode 100644 t/Catalogue.t diff --git a/t/Catalogue.t b/t/Catalogue.t new file mode 100644 index 0000000000..c27c0819e1 --- /dev/null +++ b/t/Catalogue.t @@ -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. :) +# -- 2.39.5