use strict;
use warnings;
-use Test::More tests => 91;
+use Test::More;
use vars qw($debug $koha $dbh $config $ret);
BEGIN {
}
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;
use C4::Debug;
use C4::SQLHelper qw(:all);
-use Test::More tests => 20;
+use Test::More tests => 22;
use_ok('C4::SQLHelper');
$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");