This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
72a2e6d9abaa97b6f457f2fda426f568100745c7
[perl5.git] / cpan / Module-Build / t / properties / requires.t
1 # sample.t -- a sample test file for Module::Build
2
3 use strict;
4 use lib 't/lib';
5 use MBTest;
6 use DistGen;
7
8 plan tests => 4;
9
10 # Ensure any Module::Build modules are loaded from correct directory
11 blib_load('Module::Build');
12
13 my ($dist, $mb, $prereqs);
14
15 #--------------------------------------------------------------------------#
16 # try undefined prereq version
17 #--------------------------------------------------------------------------#
18
19 $dist = DistGen->new( name => 'Simple::Requires' );
20
21 $dist->change_build_pl(
22   module_name => 'Simple::Requires',
23   requires => {
24     'File::Basename' => undef,
25   },
26 )->regen;
27
28 $dist->chdir_in;
29
30 $mb = $dist->new_from_context();
31 isa_ok( $mb, "Module::Build" );
32
33 $prereqs = $mb->_normalize_prereqs;
34 is($prereqs->{requires}{'File::Basename'}, 0, "undef prereq converted to 0");
35
36 #--------------------------------------------------------------------------#
37 # try empty string prereq version
38 #--------------------------------------------------------------------------#
39
40 $dist->change_build_pl(
41   module_name => 'Simple::Requires',
42   requires => {
43     'File::Basename' => '',
44   },
45 )->regen;
46
47 $mb = $dist->new_from_context();
48 isa_ok( $mb, "Module::Build" );
49
50 $prereqs = $mb->_normalize_prereqs;
51 is($prereqs->{requires}{'File::Basename'}, 0, "empty string prereq converted to 0");
52
53
54 # vim:ts=2:sw=2:et:sta:sts=2