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

(-)a/t/Koha_Util_FrameworkPlugin.t (-1 / +17 lines)
Line 0 Link Here
0
- 
1
#!/usr/bin/perl
2
3
use Modern::Perl;
4
use Koha::Util::FrameworkPlugin qw(wrapper);
5
use Test::More tests => 6;
6
use t::lib::Mocks;
7
8
BEGIN {
9
        use_ok('Koha::Util::FrameworkPlugin');
10
}
11
12
my $char;
13
is($char=wrapper(' '),'space',"Return space");
14
is($char=wrapper('  '),'dblspace',"Return dblspace");
15
is($char=wrapper('|'),'pipe',"Return pipe");
16
is($char=wrapper('||'),'dblpipe',"Return dblpipe");
17
is($char=wrapper('somethingelse'),'somethingelse',"Return somethingelse");

Return to bug 13223