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:
Katrin Fischer 2014-11-13 23:06:00 +01:00 committed by Tomas Cohen Arazi
parent 41057dd25e
commit bb186e09a6
1 changed files with 13 additions and 0 deletions

13
t/Koha_Util_FrameworkPlugin.t Executable file
View File

@ -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");