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 => 56;
28
use Test::More tests => 55;
29
29
30
use C4::Context;
30
use C4::Context;
31
use Koha::Database;
31
use Koha::Database;
Lines 212-218 ok( $plugin->can('opac_js'), 'Test plugin can opac_js' ); Link Here
212
ok( $plugin->can('intranet_head'), 'Test plugin can intranet_head' );
212
ok( $plugin->can('intranet_head'), 'Test plugin can intranet_head' );
213
ok( $plugin->can('intranet_js'), 'Test plugin can intranet_js' );
213
ok( $plugin->can('intranet_js'), 'Test plugin can intranet_js' );
214
ok( $plugin->can('barcode_transform'), 'Test plugin can barcode_transform' );
214
ok( $plugin->can('barcode_transform'), 'Test plugin can barcode_transform' );
215
ok( $plugin->can('barcode_generate'), 'Test plugin can barcode_generate' );
216
ok( $plugin->can('configure'), 'Test plugin can configure' );
215
ok( $plugin->can('configure'), 'Test plugin can configure' );
217
ok( $plugin->can('install'), 'Test plugin can install' );
216
ok( $plugin->can('install'), 'Test plugin can install' );
218
ok( $plugin->can('upgrade'), 'Test plugin can upgrade' );
217
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