X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=t%2FInstaller_PerlModules.t;h=1d5a00c4d4995be0eee42812ce511b0ef2cbafbf;hb=6d1baba171e3916fc927e03f6d20017abeaf474f;hp=f64ed85e28a2c4e32f9e1a22e03029a2fcd8ba80;hpb=6eeb5180422d9439afb9e783aae70f7c1beb27e7;p=koha_fer diff --git a/t/Installer_PerlModules.t b/t/Installer_PerlModules.t index f64ed85e28..1d5a00c4d4 100755 --- a/t/Installer_PerlModules.t +++ b/t/Installer_PerlModules.t @@ -6,7 +6,7 @@ use strict; use warnings; -use Test::More tests => 15; +use Test::More tests => 17; BEGIN { use_ok('C4::Installer::PerlModules'); @@ -35,3 +35,5 @@ ok ($modules->module_count() >10 , 'count should be greater than 10'); my @module_list = $modules->module_list; %params = map { $_ => 1 } @module_list; ok (exists($params{"DBI"}), 'DBI exists in array'); +is ($modules->required('module'=>"String::Random"),1, 'String::Random should return 1 since required'); +ok (!$modules->version_info(), "Testing empty modules");