|
Lines 25-31
use File::Temp qw( tempdir tempfile );
Link Here
|
| 25 |
use FindBin qw($Bin); |
25 |
use FindBin qw($Bin); |
| 26 |
use Module::Load::Conditional qw(can_load); |
26 |
use Module::Load::Conditional qw(can_load); |
| 27 |
use Test::MockModule; |
27 |
use Test::MockModule; |
| 28 |
use Test::More tests => 55; |
28 |
use Test::More tests => 57; |
| 29 |
|
29 |
|
| 30 |
use C4::Context; |
30 |
use C4::Context; |
| 31 |
use Koha::Database; |
31 |
use Koha::Database; |
|
Lines 126-132
subtest 'GetPlugins() tests' => sub {
Link Here
|
| 126 |
|
126 |
|
| 127 |
@plugins = $plugins->GetPlugins({ metadata => { my_example_tag => 'find_me' }, all => 1 }); |
127 |
@plugins = $plugins->GetPlugins({ metadata => { my_example_tag => 'find_me' }, all => 1 }); |
| 128 |
@names = map { $_->get_metadata()->{'name'} } @plugins; |
128 |
@names = map { $_->get_metadata()->{'name'} } @plugins; |
| 129 |
is( scalar @names, 4, "Only four plugins found via a metadata tag" ); |
129 |
is( scalar @names, 2, "Only two plugins found via a metadata tag" ); |
| 130 |
|
130 |
|
| 131 |
$schema->storage->txn_rollback; |
131 |
$schema->storage->txn_rollback; |
| 132 |
}; |
132 |
}; |
| 133 |
- |
|
|