gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Working on unit tests

This commit is contained in:
rangi 2007-06-17 23:35:36 +00:00
parent 5d610f543b
commit 07902f96e8
3 changed files with 29 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
misc/testKoha.pl
View File

@ -27,6 +27,7 @@ use Test::Harness;
# 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 @@ runtests (@tests);
exit;
# $Log$
# 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
#

5
t/Accounts.t Normal file
View File

@ -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";

20
t/Acquisition.t Normal file
View File

@ -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";
}