Bug 9259: Use is instead of is_deeply
[koha.git] / t / Koha_Util_FrameworkPlugin.t
1 #!/usr/bin/perl
2
3 use Modern::Perl;
4 use Test::More tests => 7;
5
6 use_ok( 'Koha::Util::FrameworkPlugin', qw(wrapper date_entered) );
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");
14
15 my $f008= date_entered();
16 is( $f008 =~ /^\d{6}$/, 1, 'date_entered gives six digits' );