Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

more test case fixes

Browse source 
SQLHelper.t - clean up after itself better
Context.t - fix reporting of test plan

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
This commit is contained in:
Galen Charlton 2010-10-06 11:55:37 -04:00
parent 917c397968
commit d243847c0a
2 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
t/db_dependent/Context.t
View file

@ -4,7 +4,7 @@
use strict;
use warnings;
use Test::More tests => 91;
use Test::More;
use vars qw($debug $koha $dbh $config $ret);
BEGIN {
@ -42,8 +42,6 @@ foreach (grep {defined $koha->{$_}} sort @keys) {
}
ok($config = $koha->{config}, 'Getting $koha->{config} ');
# diag("Examining configuration.");
diag("Note: The overall number of tests may vary by configuration. Disregard the projected number.");
1;
__END__
done_testing();
1;

5
t/db_dependent/SQLHelper.t
View file

@ -10,7 +10,7 @@ use YAML;
use C4::Debug;
use C4::SQLHelper qw(:all);
use Test::More tests => 20;
use Test::More tests => 22;
use_ok('C4::SQLHelper');
@ -64,3 +64,6 @@ ok(@$borrowers>0 && !($@), "Search on simple value in firstname");
$status=DeleteInTable("borrowers",{borrowernumber=>$borrid});
ok($status>0 && !($@), "DeleteInTable OK");
$status=DeleteInTable("borrowers",{borrowernumber=>$borrtmp});
ok($status>0 && !($@), "DeleteInTable OK");
$status=DeleteInTable("branches", {branchcode => 'ZZZZ'});
ok($status>0 && !($@), "DeleteInTable (branch) OK");