Lines 18-23
Link Here
|
18 |
# along with Koha; if not, see <http://www.gnu.org/licenses>. |
18 |
# along with Koha; if not, see <http://www.gnu.org/licenses>. |
19 |
|
19 |
|
20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
|
|
21 |
use File::Basename qw(dirname); |
21 |
use Test::More tests => 100; |
22 |
use Test::More tests => 100; |
22 |
use Test::MockModule; |
23 |
use Test::MockModule; |
23 |
use Test::Warn; |
24 |
use Test::Warn; |
Lines 882-888
subtest 'GetPreparedLetter' => sub {
Link Here
|
882 |
subtest 'TranslateNotices' => sub { |
883 |
subtest 'TranslateNotices' => sub { |
883 |
plan tests => 10; |
884 |
plan tests => 10; |
884 |
|
885 |
|
885 |
t::lib::Mocks::mock_config( 'intrahtdocs', '/kohadevbox/koha/t/mock_templates/intranet-tmpl' ); |
886 |
t::lib::Mocks::mock_config( 'intrahtdocs', dirname(__FILE__) . '/../mock_templates/intranet-tmpl' ); |
886 |
t::lib::Mocks::mock_preference( 'OPACLanguages', 'fr-CA,en' ); |
887 |
t::lib::Mocks::mock_preference( 'OPACLanguages', 'fr-CA,en' ); |
887 |
|
888 |
|
888 |
my $amount = -20; |
889 |
my $amount = -20; |
889 |
- |
|
|