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