quick updates/corrections
authorpate <pate>
Fri, 31 May 2002 22:46:59 +0000 (22:46 +0000)
committerpate <pate>
Fri, 31 May 2002 22:46:59 +0000 (22:46 +0000)
t/Catalogue.t
testKoha.pl

index c27c081..0330c54 100644 (file)
@@ -1,6 +1,6 @@
 # $Id$
 
-BEGIN { $| = 1; print "1..1\n"; }
+BEGIN { $| = 1; print "1..3\n"; }
 END {print "not ok 1\n" unless $loaded;}
 use C4::Catalogue;
 $loaded = 1;
@@ -27,13 +27,16 @@ $bibid=1234;
 my $title=getTitle(1234);
 
 if ($title eq '') {
-    print "ok 2\n";
+    print "ok 3\n";
 } else {
-    print "not ok 2\n";
+    print "not ok 3\n";
 }
 
 
 # $Log$
+# Revision 1.2  2002/05/31 22:46:59  pate
+# quick updates/corrections
+#
 # Revision 1.1  2002/05/31 22:17:12  tonnesen
 # Skeleton test file for Catalogue.pm.  Fails miserably so far.  :)
 #
index 30043a1..b6a3ea4 100644 (file)
@@ -4,4 +4,4 @@ use strict;
 use Test::Harness;
 
 
-runtests 't/koha.t';
+runtests 't/koha.t t/Catalogue.t';