view release on metacpan or  search on metacpan

t/properties/release_status.t  view on Meta::CPAN

use strict;
use lib 't/lib';
use MBTest;
use DistGen;

if ( $] lt 5.008001 ) { 
  plan skip_all => "dotted-version numbers are buggy before 5.8.1";
} else {
  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' );

  $dist->change_build_pl(
    module_name => 'Simple::Name',
  )->regen;

  $dist->chdir_in;

  my $mb = $dist->new_from_context();
  isa_ok( $mb, "Module::Build" );
  is( $mb->release_status, "stable",
    "regular version has release_status 'stable'"
  );
}

{
  my $dist = DistGen->new( name => 'Simple::Name', version => 'v1.2.3' );

  $dist->change_build_pl(
    module_name => 'Simple::Name',
  )->regen;

  $dist->chdir_in;

  my $mb = $dist->new_from_context();
  isa_ok( $mb, "Module::Build" );
  is( $mb->release_status, "stable",
    "dotted-decimal version has release_status 'stable'"
  );
}

{
  my $dist = DistGen->new( name => 'Simple::Name', version => q{'0.01_01'} );

  $dist->change_build_pl(
    module_name => 'Simple::Name',
  )->regen;

  $dist->chdir_in;

  my $mb = $dist->new_from_context();
  isa_ok( $mb, "Module::Build" );
  is( $mb->release_status, "testing",
    "alpha version has release_status 'testing'"
  );
}