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 |
- |
|
|