t/Koha_Util_FrameworkPlugin.t

   1 #!/usr/bin/perl
   2
   3 use Modern::Perl;
   4 use Test::More tests => 6;
   5
   6 use_ok( 'Koha::Util::FrameworkPlugin', qw(wrapper) );
   7
   8 my $char;
   9 is($char=wrapper(' '),'space',"Return space");
  10 is($char=wrapper('  '),'dblspace',"Return dblspace");
  11 is($char=wrapper('|'),'pipe',"Return pipe");
  12 is($char=wrapper('||'),'dblpipe',"Return dblpipe");
  13 is($char=wrapper('somethingelse'),'somethingelse',"Return somethingelse");