6 use Test::More tests => 4;
10 use_ok('C4::Installer::PerlModules');
13 my $obj = C4::Installer::PerlModules->new;
15 isa_ok($obj,'C4::Installer::PerlModules');
17 my $hash_ref = $obj->version_info(module => 'Test::More');
19 my $control = $Test::More::VERSION;
21 like($hash_ref->{'Test::More'}->{cur_ver}, qr/\d/, 'returns numeric version');
23 ok($hash_ref->{'Test::More'}->{cur_ver} == $control, 'returns correct version');