| use strict; |
| use lib 't/lib'; |
| use MBTest; |
| use DistGen; |
| |
| plan 'no_plan'; |
| |
| # Ensure any Module::Build modules are loaded from correct directory |
| blib_load('Module::Build'); |
| |
| #--------------------------------------------------------------------------# |
| # Create test distribution |
| #--------------------------------------------------------------------------# |
| |
| { |
| my $dist = DistGen->new( |
| name => 'Simple::Name', |
| version => '0.01', |
| license => 'perl' |
| ); |
| |
| $dist->regen; |
| $dist->chdir_in; |
| |
| my $mb = $dist->new_from_context(); |
| isa_ok( $mb, "Module::Build" ); |
| is( $mb->license, 'perl', |
| "license 'perl' is valid" |
| ); |
| |
| my $meta = $mb->get_metadata( fatal => 0 ); |
| |
| is( $meta->{license} => 'perl', "META license will be 'perl'" ); |
| is( $meta->{resources}{license}, "http://dev.perl.org/licenses/", |
| "META license URL is correct" |
| ); |
| |
| } |
| |
| { |
| my $dist = DistGen->new( |
| name => 'Simple::Name', |
| version => '0.01', |
| license => 'VaporWare' |
| ); |
| |
| $dist->regen; |
| $dist->chdir_in; |
| |
| my $mb = $dist->new_from_context(); |
| isa_ok( $mb, "Module::Build" ); |
| is( $mb->license, 'VaporWare', |
| "license 'VaporWare' is valid" |
| ); |
| |
| my $meta = $mb->get_metadata( fatal => 0 ); |
| |
| is( $meta->{license} => 'unrestricted', "META license will be 'unrestricted'" ); |
| is( $meta->{resources}{license}, "http://example.com/vaporware/", |
| "META license URL is correct" |
| ); |
| |
| } |
| |
| # Test with alpha number |
| # vim:ts=2:sw=2:et:sta:sts=2 |