From 14d422a951d47715ee940abbfb50a5edde960f2d Mon Sep 17 00:00:00 2001
From: tonnesen <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