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

(-)a/t/db_dependent/Labels/t_Batch.t (-2 / +9 lines)
Lines 21-31 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use Test::More tests => 24;
23
use Test::More tests => 24;
24
use C4::Context;
25
use MARC::Record;
24
use MARC::Record;
26
use MARC::Field;
25
use MARC::Field;
26
27
use t::lib::TestBuilder;
28
29
use C4::Context;
27
use C4::Biblio;
30
use C4::Biblio;
28
use C4::Items;
31
use C4::Items;
32
use Koha::Libraries;
29
33
30
BEGIN {
34
BEGIN {
31
    use_ok('C4::Labels::Batch');
35
    use_ok('C4::Labels::Batch');
Lines 36-41 my $dbh = C4::Context->dbh; Link Here
36
$dbh->{AutoCommit} = 0;
40
$dbh->{AutoCommit} = 0;
37
$dbh->{RaiseError} = 1;
41
$dbh->{RaiseError} = 1;
38
42
43
my $builder = t::lib::TestBuilder->new;
44
$builder->build({ source => 'Branch', value => { branchcode => 'CPL' } })
45
    unless Koha::Libraries->find('CPL');
46
39
my $sth = $dbh->prepare('SELECT branchcode FROM branches b LIMIT 0,1');
47
my $sth = $dbh->prepare('SELECT branchcode FROM branches b LIMIT 0,1');
40
$sth->execute();
48
$sth->execute();
41
my $branch_code = $sth->fetchrow_hashref()->{'branchcode'};
49
my $branch_code = $sth->fetchrow_hashref()->{'branchcode'};
42
- 

Return to bug 20900