From 34fef44f212e7d002529c7d18ceaaef5cda14d46 Mon Sep 17 00:00:00 2001 From: Katrin Fischer Date: Thu, 13 Nov 2014 23:06:00 +0100 Subject: [PATCH] Bug 13223: [QA Follow-up] Adding some unit tests for wrapper Content-Type: text/plain; charset=utf-8 Signed-off-by: Marcel de Rooy Trivially amended. Thanks, Katrin. --- t/Koha_Util_FrameworkPlugin.t | 13 +++++++++++++ 1 files changed, 13 insertions(+), 0 deletions(-) create mode 100755 t/Koha_Util_FrameworkPlugin.t diff --git a/t/Koha_Util_FrameworkPlugin.t b/t/Koha_Util_FrameworkPlugin.t new file mode 100755 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"); -- 1.7.7.6