[Koha-cvs] koha misc/testKoha.pl t/Accounts.t t/Acquisition.t

[Chris Cormack]

CVSROOT:        /sources/koha
Module name:    koha
Changes by:     Chris Cormack <rangi>   07/06/17 23:35:37

Modified files:
        misc           : testKoha.pl 
Added files:
        t              : Accounts.t Acquisition.t 

Log message:
        Working on unit tests

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/misc/testKoha.pl?cvsroot=koha&r1=1.1&r2=1.2
http://cvs.savannah.gnu.org/viewcvs/koha/t/Accounts.t?cvsroot=koha&rev=1.1
http://cvs.savannah.gnu.org/viewcvs/koha/t/Acquisition.t?cvsroot=koha&rev=1.1

Patches:
Index: misc/testKoha.pl
===================================================================
RCS file: /sources/koha/koha/misc/testKoha.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- misc/testKoha.pl    22 Nov 2002 09:05:18 -0000      1.1
+++ misc/testKoha.pl    17 Jun 2007 23:35:36 -0000      1.2
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 
-# $Id: testKoha.pl,v 1.1 2002/11/22 09:05:18 tipaul Exp $
+# $Id: testKoha.pl,v 1.2 2007/06/17 23:35:36 rangi Exp $
 
 
 # Copyright 2000-2002 Katipo Communications
@@ -27,6 +27,7 @@
 # Please make the test name the same as the module name where possible
 
 my @tests=(
+       't/Accounts.t',
        't/format.t',
        't/Input.t',
        't/koha.t',
@@ -41,6 +42,9 @@
 exit;
 
 # $Log: testKoha.pl,v $
+# Revision 1.2  2007/06/17 23:35:36  rangi
+# Working on unit tests
+#
 # Revision 1.1  2002/11/22 09:05:18  tipaul
 # moving non koha-running files to misc dir
 #

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

Index: t/Acquisition.t
===================================================================
RCS file: t/Acquisition.t
diff -N t/Acquisition.t
--- /dev/null   1 Jan 1970 00:00:00 -0000
+++ t/Acquisition.t     17 Jun 2007 23:35:37 -0000      1.1
@@ -0,0 +1,20 @@
+BEGIN { $| = 1; print "1..3\n"; }
+END {print "not ok 1\n" unless $loaded;}
+use C4::Acquisition;
+$loaded = 1;
+print "ok 1\n";
+
+$basketno=NewBasket(1,1);
+if ($basketno){
+  print "ok 2\n";
+}
+else {
+  print "not ok 2\n";
+}
+
+if ($basket=GetBasket($basketno)){
+  print "ok 3\n";
+}
+else {
+  print "not ok 3\n";
+}