Lines 18-23
Link Here
|
18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
19 |
|
19 |
|
20 |
use Test::More tests => 74; |
20 |
use Test::More tests => 74; |
|
|
21 |
use Test::MockModule; |
21 |
use Test::Warn; |
22 |
use Test::Warn; |
22 |
|
23 |
|
23 |
use MARC::Record; |
24 |
use MARC::Record; |
Lines 39-47
BEGIN {
Link Here
|
39 |
} |
40 |
} |
40 |
|
41 |
|
41 |
# a very minimal mack of userenv for use by the test of DelItemCheck |
42 |
# a very minimal mack of userenv for use by the test of DelItemCheck |
42 |
*C4::Context::userenv = sub { |
43 |
my $module = new Test::MockModule('C4::Context'); |
43 |
return {}; |
44 |
$module->mock('userenv', sub { |
44 |
}; |
45 |
{ } |
|
|
46 |
}); |
45 |
|
47 |
|
46 |
my $dbh = C4::Context->dbh; |
48 |
my $dbh = C4::Context->dbh; |
47 |
|
49 |
|
48 |
- |
|
|