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>

diff --git a/t/Koha_Util_FrameworkPlugin.t b/t/Koha_Util_FrameworkPlugin.t
new file mode 100755 (executable)
index 0000000..20f941c
--- /dev/null
+++ b/t/Koha_Util_FrameworkPlugin.t
@@ -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");