Bug 13223: [QA Follow-up] Adding some unit tests for wrapper
Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl> Trivially amended. Thanks, Katrin. Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>
This commit is contained in:
parent
41057dd25e
commit
bb186e09a6
|
|
@ -0,0 +1,13 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
use Modern::Perl;
|
||||
use Test::More tests => 6;
|
||||
|
||||
use_ok( 'Koha::Util::FrameworkPlugin', qw(wrapper) );
|
||||
|
||||
my $char;
|
||||
is($char=wrapper(' '),'space',"Return space");
|
||||
is($char=wrapper(' '),'dblspace',"Return dblspace");
|
||||
is($char=wrapper('|'),'pipe',"Return pipe");
|
||||
is($char=wrapper('||'),'dblpipe',"Return dblpipe");
|
||||
is($char=wrapper('somethingelse'),'somethingelse',"Return somethingelse");
|
||||
Loading…
Reference in New Issue