koha-dev.rot13.org Git - koha_fer/blob - t/Catalogue.t

   1 # $Id$
   2
   3 BEGIN { $| = 1; print "1..3\n"; }
   4 END {print "not ok 1\n" unless $loaded;}
   5 use C4::Catalogue;
   6 $loaded = 1;
   7 print "ok 1\n";
   8
   9
  10
  11 # getAuthor() test
  12
  13 $bibid=1234;
  14
  15 my $author=getAuthor(1234);
  16
  17 if ($author eq 'Farley Mowatt') {
  18     print "ok 2\n";
  19 } else {
  20     print "not ok 2\n";
  21 }
  22
  23 # getTitle() test
  24
  25 $bibid=1234;
  26
  27 my $title=getTitle(1234);
  28
  29 if ($title eq '') {
  30     print "ok 3\n";
  31 } else {
  32     print "not ok 3\n";
  33 }
  34
  35
  36 # $Log$
  37 # Revision 1.2  2002/05/31 22:46:59  pate
  38 # quick updates/corrections
  39 #
  40 # Revision 1.1  2002/05/31 22:17:12  tonnesen
  41 # Skeleton test file for Catalogue.pm.  Fails miserably so far.  :)
  42 #