t/Installer_pm.t

   1 #!/usr/bin/perl
   2 #
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 4;
   7 use Data::Dumper;
   8
   9 BEGIN {
  10     use_ok('C4::Installer::PerlModules');
  11 }
  12
  13 my $obj = C4::Installer::PerlModules->new;
  14
  15 isa_ok($obj,'C4::Installer::PerlModules');
  16
  17 my $module_info = $obj->version_info('Test::More');
  18
  19 my $control = $Test::More::VERSION;
  20
  21 like($module_info->{cur_ver}, qr/\d/, 'returns numeric version');
  22
  23 is($module_info->{cur_ver}, $control, 'returns correct version');
  24
  25