From f878d8e9d1e4edd891695bc44ecd5070af135888 Mon Sep 17 00:00:00 2001 From: David Cook Date: Thu, 12 Jan 2017 09:38:07 +1100 Subject: [PATCH] Bug 17882 - Add missing module test to Installer_PerlModules.t Adds a test that checks the values declared for a missing Perl dependency. --- t/Installer_PerlModules.t | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/t/Installer_PerlModules.t b/t/Installer_PerlModules.t index 1d5a00c..d7f7b8a 100755 --- a/t/Installer_PerlModules.t +++ b/t/Installer_PerlModules.t @@ -6,12 +6,18 @@ use strict; use warnings; -use Test::More tests => 17; +use Test::More tests => 18; BEGIN { use_ok('C4::Installer::PerlModules'); } +$C4::Installer::PerlModules::PERL_DEPS->{'Local::Module::Missing'} = { + 'required' => '1', + 'min_ver' => '0.9.3', + 'usage' => "Checking the minimum version required for a missing module", +}; + my $modules; ok ($modules = C4::Installer::PerlModules->new(), 'Tests modules object'); my $prereq_pm = $modules->prereq_pm(); @@ -37,3 +43,6 @@ my @module_list = $modules->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"); + +my $version_check = $modules->version_info('module'=>"Local::Module::Missing"); +is($version_check->{"Local::Module::Missing"}->{"min_ver"},"0.9.3","Minimum version found for missing module"); -- 2.10.2