vcs.maemo.org Git - dh-make-perl/blob - dev/i386/libmodule-build-perl/libmodule-build-perl-0.2808.01/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 => 2;
   6
   7 use Cwd ();
   8 my $cwd = Cwd::cwd;
   9 my $tmp = MBTest->tmpdir;
  10
  11 use DistGen;
  12 my $dist = DistGen->new( dir => $tmp );
  13 $dist->regen;
  14
  15 #########################
  16
  17 use Module::Build;
  18
  19 my @mod = split( /::/, $dist->name );
  20 my $file = File::Spec->catfile( $dist->dirname, 'lib', @mod ) . '.pm';
  21 is( Module::Build->version_from_file( $file ), '0.01', 'version_from_file' );
  22
  23 ok( Module::Build->compare_versions( '1.01_01', '>', '1.01' ), 'compare: 1.0_01 > 1.0' );
  24
  25
  26 # cleanup
  27 $dist->remove;
  28
  29 use File::Path;
  30 rmtree( $tmp );