@@ -, +, @@ --- t/Koha_Util_FrameworkPlugin.t | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100755 t/Koha_Util_FrameworkPlugin.t --- a/t/Koha_Util_FrameworkPlugin.t +++ a/t/Koha_Util_FrameworkPlugin.t @@ -0,0 +1,17 @@ +#!/usr/bin/perl + +use Modern::Perl; +use Koha::Util::FrameworkPlugin qw(wrapper); +use Test::More tests => 6; +use t::lib::Mocks; + +BEGIN { + use_ok('Koha::Util::FrameworkPlugin'); +} + +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"); --