lib/Module/Build/t/versions.t

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use lib $ENV{PERL_CORE} ? '../lib/Module/Build/t/lib' : 't/lib';
   5 use MBTest tests => 4;
   6
   7 use_ok 'Module::Build';
   8 ensure_blib('Module::Build');
   9
  10 my $tmp = MBTest->tmpdir;
  11
  12 use DistGen;
  13 my $dist = DistGen->new( dir => $tmp );
  14 $dist->regen;
  15
  16 #########################
  17
  18 my @mod = split( /::/, $dist->name );
  19 my $file = File::Spec->catfile( $dist->dirname, 'lib', @mod ) . '.pm';
  20 is( Module::Build->version_from_file( $file ), '0.01', 'version_from_file' );
  21
  22 ok( Module::Build->compare_versions( '1.01_01', '>', '1.01' ), 'compare: 1.0_01 > 1.0' );
  23
  24
  25 # cleanup
  26 $dist->remove;