Main Koha release repository
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

16 lines
503 B

use Modern::Perl;
use Test::More tests => 7;
use_ok( 'Koha::Util::FrameworkPlugin', qw(wrapper date_entered) );
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");
my $f008= date_entered();
is( $f008 =~ /^\d{6}$/, 1, 'date_entered gives six digits' );