Commit | Line | Data |
bb4e9162 |
1 | #!/usr/bin/perl -w |
2 | |
3 | use strict; |
4 | use lib $ENV{PERL_CORE} ? '../lib/Module/Build/t/lib' : 't/lib'; |
738349a8 |
5 | use MBTest tests => 4; |
6 | |
7 | use_ok 'Module::Build'; |
8 | ensure_blib('Module::Build'); |
bb4e9162 |
9 | |
7a827510 |
10 | my $tmp = MBTest->tmpdir; |
bb4e9162 |
11 | |
12 | use DistGen; |
13 | my $dist = DistGen->new( dir => $tmp ); |
14 | $dist->regen; |
15 | |
16 | ######################### |
17 | |
bb4e9162 |
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; |