Bug 17678: Add tests for CanBookBeIssued + AllowMultipleIssuesOnABiblio

[koha.git] / t / Koha_Util_FrameworkPlugin.t

diff --git a/t/Koha_Util_FrameworkPlugin.t b/t/Koha_Util_FrameworkPlugin.t
index 20f941c..a30e3e7 100755 (executable)
--- a/t/Koha_Util_FrameworkPlugin.t
+++ b/t/Koha_Util_FrameworkPlugin.t
@@ -1,9 +1,9 @@
 #!/usr/bin/perl
 
 use Modern::Perl;
-use Test::More tests => 6;
+use Test::More tests => 7;
 
-use_ok( 'Koha::Util::FrameworkPlugin', qw(wrapper) );
+use_ok( 'Koha::Util::FrameworkPlugin', qw(wrapper date_entered) );
 
 my $char;
 is($char=wrapper(' '),'space',"Return space");
@@ -11,3 +11,6 @@ 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' );