Bug 17990: Refactor Perl module versions check

[srvgit] / t / Installer_pm.t

diff --git a/t/Installer_pm.t b/t/Installer_pm.t
index 4370174..7378172 100755 (executable)
--- a/t/Installer_pm.t
+++ b/t/Installer_pm.t
@@ -14,12 +14,12 @@ my $obj = C4::Installer::PerlModules->new;
 
 isa_ok($obj,'C4::Installer::PerlModules');
 
-my $hash_ref = $obj->version_info(module => 'Test::More');
+my $module_info = $obj->version_info('Test::More');
 
 my $control = $Test::More::VERSION;
 
-like($hash_ref->{'Test::More'}->{cur_ver}, qr/\d/, 'returns numeric version');
+like($module_info->{cur_ver}, qr/\d/, 'returns numeric version');
 
-ok($hash_ref->{'Test::More'}->{cur_ver} == $control, 'returns correct version');
+is($module_info->{cur_ver}, $control, 'returns correct version');