Lines 3-10
use Modern::Perl;
Link Here
|
3 |
use CGI; |
3 |
use CGI; |
4 |
use File::Temp qw/tempfile/; |
4 |
use File::Temp qw/tempfile/; |
5 |
use Getopt::Long; |
5 |
use Getopt::Long; |
|
|
6 |
use Test::More tests => 7; |
6 |
use Test::MockModule; |
7 |
use Test::MockModule; |
7 |
use Test::More tests => 6; |
8 |
use Test::Warn; |
8 |
|
9 |
|
9 |
use t::lib::Mocks; |
10 |
use t::lib::Mocks; |
10 |
use t::lib::TestBuilder; |
11 |
use t::lib::TestBuilder; |
Lines 61-66
subtest 'Test06 -- test biblio_008' => sub {
Link Here
|
61 |
is( substr($field, 15, 3), '|||', 'Check country fallback for undefined' ); |
62 |
is( substr($field, 15, 3), '|||', 'Check country fallback for undefined' ); |
62 |
}; |
63 |
}; |
63 |
|
64 |
|
|
|
65 |
subtest 'Test07 -- validate input' => sub { |
66 |
plan tests => 4; |
67 |
|
68 |
my $plugin = Koha::FrameworkPlugin->new( { name => '../../misc/maintenance/touch_all_biblios.pl' } ); |
69 |
warning_like { $plugin->launch } qr{Attempt to load}; |
70 |
like( $plugin->errstr, qr{File not found} ); |
71 |
|
72 |
$plugin = Koha::FrameworkPlugin->new( { name => 'non-existent-plugin.pl' } ); |
73 |
warning_like { $plugin->launch } q{}; |
74 |
like( $plugin->errstr, qr{File not found} ); |
75 |
|
76 |
}; |
77 |
|
64 |
$schema->storage->txn_rollback; |
78 |
$schema->storage->txn_rollback; |
65 |
|
79 |
|
66 |
sub test01 { |
80 |
sub test01 { |
67 |
- |
|
|