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

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

Return to bug 13223