view release on metacpan or  search on metacpan

t/04_buildperl.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More qw[no_plan];

use_ok('App::SmokeBrew::BuildPerl');

{
  eval {
    my $bp = App::SmokeBrew::BuildPerl->new(
      version => '6.10.1',
      builddir => '.',
      prefix => 'perl-5.10.1',
      perlargs => ['-Dusethreads','-Duse64bitint'],
    );
  };
  like( $@, qr/given is not a valid Perl version/s, q{We didn't like the version given} );
}

{
  my $bp = App::SmokeBrew::BuildPerl->new(
    version => '5.10.1',
    builddir => '.',
    prefix => 'perl-5.10.1',
    perlargs => ['-Dusethreads','-Duse64bitint'],
  );

  isa_ok($bp,'App::SmokeBrew::BuildPerl');
  isa_ok($bp->version, 'Perl::Version');
  is( $bp->perl_version, 'perl-5.10.1', 'The perl version is okay');
}

{
  eval {
    my $bp = App::SmokeBrew::BuildPerl->new(
      version => '5.005_03',
      builddir => '.',
      prefix => 'perl5.005_03',
      perlargs => ['-Dusethreads','-Duse64bitint'],
    );
  };
  like( $@, qr/given is not a valid Perl version/s, q{We didn't like the version given} );
}

{
  my $bp = App::SmokeBrew::BuildPerl->new(
    version => '5.10.1',
    builddir => '.',
    prefix => 'perl-5.10.1',
    perlargs => ['-Dusethreads','-Dusequadmath'],
  );

  isa_ok($bp,'App::SmokeBrew::BuildPerl');
  isa_ok($bp->version, 'Perl::Version');
  is( $bp->perl_version, 'perl-5.10.1', 'The perl version is okay');

  my $location = $bp->build_perl;
  ok( !$location, 'No build location so build abandoned' );
  my @stack = Log::Message::Simple->stack;
  my $last = pop @stack;
  is( $last->level, 'error', 'Last message was an error' );
  is( $last->message, q{This perl 'perl-5.10.1' cannot be built with quadmath}, 'This perl has no quadmath' );
}