View | Details | Raw Unified | Return to bug 26351
Collapse All | Expand All

(-)a/t/db_dependent/Koha/Plugins/Plugins.t (-2 / +1 lines)
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 => 54;
29
29
30
use C4::Context;
30
use C4::Context;
31
use Koha::Database;
31
use Koha::Database;
Lines 182-188 ok( $plugin->can('opac_js'), 'Test plugin can opac_js' ); Link Here
182
ok( $plugin->can('intranet_head'), 'Test plugin can intranet_head' );
182
ok( $plugin->can('intranet_head'), 'Test plugin can intranet_head' );
183
ok( $plugin->can('intranet_js'), 'Test plugin can intranet_js' );
183
ok( $plugin->can('intranet_js'), 'Test plugin can intranet_js' );
184
ok( $plugin->can('barcode_transform'), 'Test plugin can barcode_transform' );
184
ok( $plugin->can('barcode_transform'), 'Test plugin can barcode_transform' );
185
ok( $plugin->can('barcode_generate'), 'Test plugin can barcode_generate' );
186
ok( $plugin->can('configure'), 'Test plugin can configure' );
185
ok( $plugin->can('configure'), 'Test plugin can configure' );
187
ok( $plugin->can('install'), 'Test plugin can install' );
186
ok( $plugin->can('install'), 'Test plugin can install' );
188
ok( $plugin->can('upgrade'), 'Test plugin can upgrade' );
187
ok( $plugin->can('upgrade'), 'Test plugin can upgrade' );
(-)a/t/lib/Koha/Plugin/Test.pm (-6 lines)
Lines 98-108 sub barcode_transform { Link Here
98
    Koha::Exceptions::Exception->throw("barcode_transform called with parameters: $type, $barcode");
98
    Koha::Exceptions::Exception->throw("barcode_transform called with parameters: $type, $barcode");
99
}
99
}
100
100
101
sub barcode_generate {
102
    my ( $self, $type, $object ) = @_;
103
    return "Koha::Plugin::Test::barcode_generate";
104
}
105
106
sub configure {
101
sub configure {
107
    my ( $self, $args ) = @_;
102
    my ( $self, $args ) = @_;
108
    return "Koha::Plugin::Test::configure";
103
    return "Koha::Plugin::Test::configure";
109
- 

Return to bug 26351