[Koha-cvs] koha misc/testKoha.pl t/Breeding.t t/Catalogue.t

[Chris Cormack]

CVSROOT:        /sources/koha
Module name:    koha
Changes by:     Chris Cormack <rangi>   07/06/18 01:58:25

Modified files:
        misc           : testKoha.pl 
Added files:
        t              : Breeding.t 
Removed files:
        t              : Catalogue.t 

Log message:
        Continuing on my tests mission

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/misc/testKoha.pl?cvsroot=koha&r1=1.5&r2=1.6
http://cvs.savannah.gnu.org/viewcvs/koha/t/Breeding.t?cvsroot=koha&rev=1.1
http://cvs.savannah.gnu.org/viewcvs/koha/t/Catalogue.t?cvsroot=koha&r1=1.3&r2=0

Patches:
Index: misc/testKoha.pl
===================================================================
RCS file: /sources/koha/koha/misc/testKoha.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -b -r1.5 -r1.6
--- misc/testKoha.pl    18 Jun 2007 01:34:50 -0000      1.5
+++ misc/testKoha.pl    18 Jun 2007 01:58:24 -0000      1.6
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 
-# $Id: testKoha.pl,v 1.5 2007/06/18 01:34:50 rangi Exp $
+# $Id: testKoha.pl,v 1.6 2007/06/18 01:58:24 rangi Exp $
 
 
 # Copyright 2000-2002 Katipo Communications
@@ -35,14 +35,18 @@
        't/Auth_with_ldap.t',
        't/Barcodes_PrinterConfig.t',
        't/Biblio.t',
-       't/Bookfund.t'
+       't/Bookfund.t',
        't/Bookseller.t',
+       't/BookShelves.t',
+       't/Boolean.t',
+       't/Breeding.t',
+       
        't/format.t',
        't/Input.t',
        't/koha.t',
        't/output.t',
        't/require.t',
-       't/Catalogue.t',
+       
 );
 
 
@@ -51,6 +55,9 @@
 exit;
 
 # $Log: testKoha.pl,v $
+# Revision 1.6  2007/06/18 01:58:24  rangi
+# Continuing on my tests mission
+#
 # Revision 1.5  2007/06/18 01:34:50  rangi
 # More test files
 #

Index: t/Breeding.t
===================================================================
RCS file: t/Breeding.t
diff -N t/Breeding.t
--- /dev/null   1 Jan 1970 00:00:00 -0000
+++ t/Breeding.t        18 Jun 2007 01:58:25 -0000      1.1
@@ -0,0 +1,5 @@
+BEGIN { $| = 1; print "1..1\n"; }
+END {print "not ok 1\n" unless $loaded;}
+use C4::Breeding;
+$loaded = 1;
+print "ok 1\n";

Index: t/Catalogue.t
===================================================================
RCS file: t/Catalogue.t
diff -N t/Catalogue.t
--- t/Catalogue.t       1 Jun 2002 05:46:08 -0000       1.3
+++ /dev/null   1 Jan 1970 00:00:00 -0000
@@ -1,66 +0,0 @@
-# $Id: Catalogue.t,v 1.3 2002/06/01 05:46:08 tonnesen Exp $
-BEGIN { $| = 1; ($ENV{'DoUnsafeDBTests'}) ? (print "1..4\n") : (print 
"1..3\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);
-my $author='Farley Mowatt';
-
-if ($author eq 'Farley Mowatt') {
-    print "ok 2\n";
-} else {
-    print "not ok 2\n";
-}
-
-# getTitle() test
-
-$bibid=1234;
-
-#my $title=getTitle(1234);
-my $title='Wolves';
-
-if ($title eq 'Wolves') {
-    print "ok 3\n";
-} else {
-    print "not ok 3\n";
-}
-
-
-if ($ENV{'DoUnsafeDBTests'}) {
-
-# addMARC()
-
-#my $result=addMARC($marcrecord);
-    my $result=1;
-
-    if ($result) {
-       print "ok 4\n";
-    } else {
-       print "not ok 4\n";
-    }
-
-}
-
-# $Log: Catalogue.t,v $
-# Revision 1.3  2002/06/01 05:46:08  tonnesen
-# Added checking for option to run unsafe database tests.  The idea is that 
tests
-# that attempt to modify the library database will _not_ be run unless the
-# environment variable DoUnsafeDBTests is set to 1.  This allows people on
-# production systems to run the tests without any fear of data corruption, 
while
-# developers can run the full suite of tests on a standard sample database.
-#
-# 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.  :)
-#