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 $module_info = $obj->version_info('Test::More');
19 my $control = $Test::More::VERSION;
21 like($module_info->{cur_ver}, qr/\d/, 'returns numeric version');
23 is($module_info->{cur_ver}, $control, 'returns correct version');