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