View | Details | Raw Unified | Return to bug 8435
Collapse All | Expand All

(-)a/t/db_dependent/Serials_2.t (-6 / +5 lines)
Lines 6-11 use Test::More tests => 4; Link Here
6
use_ok('C4::Serials');
6
use_ok('C4::Serials');
7
use_ok('C4::Budgets');
7
use_ok('C4::Budgets');
8
8
9
my $dbh = C4::Context->dbh;
10
$dbh->{AutoCommit} = 0;
11
$dbh->{RaiseError} = 1;
12
9
my $supplierlist=eval{GetSuppliersWithLateIssues()};
13
my $supplierlist=eval{GetSuppliersWithLateIssues()};
10
ok(length($@)==0,"No SQL problem in GetSuppliersWithLateIssues");
14
ok(length($@)==0,"No SQL problem in GetSuppliersWithLateIssues");
11
15
Lines 58-65 my $subscription = GetSubscription( $subscriptionid ); Link Here
58
is( C4::Serials::can_edit_subscription($subscription), 1, "User can edit a subscription with an empty branchcode");
62
is( C4::Serials::can_edit_subscription($subscription), 1, "User can edit a subscription with an empty branchcode");
59
#TODO add UT when C4::Auth->set_permissions (or setuserflags) will exist.
63
#TODO add UT when C4::Auth->set_permissions (or setuserflags) will exist.
60
64
61
65
$dbh->rollback;
62
# cleaning
63
DelSubscription( $subscription->{subscriptionid} );
64
DelBudgetPeriod($bpid);
65
DelBudget($budget_id);
66
- 

Return to bug 8435