38 lines
846 B
Perl
38 lines
846 B
Perl
|
#!perl
|
||
|
|
use v5.14.2;
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
use utf8;
|
||
|
|
use Test::More tests => 2;
|
||
|
|
use Test::NoWarnings;
|
||
|
|
|
||
|
|
use File::Basename qw( dirname );
|
||
|
|
|
||
|
|
chdir dirname( dirname( __FILE__ ) ) or BAIL_OUT( "chdir: $!" );
|
||
|
|
|
||
|
|
my $makebin = 'make';
|
||
|
|
|
||
|
|
sub make {
|
||
|
|
my @make_args = @_;
|
||
|
|
|
||
|
|
undef $ENV{MAKEFLAGS};
|
||
|
|
|
||
|
|
my $command = join( ' ', $makebin, '-s', @make_args );
|
||
|
|
my $output = `$command 2>&1`;
|
||
|
|
|
||
|
|
if ( $? == -1 ) {
|
||
|
|
BAIL_OUT( "failed to execute: $!" );
|
||
|
|
}
|
||
|
|
elsif ( $? & 127 ) {
|
||
|
|
BAIL_OUT( "child died with signal %d, %s coredump\n", ( $? & 127 ), ( $? & 128 ) ? 'with' : 'without' );
|
||
|
|
}
|
||
|
|
|
||
|
|
return $output, $? >> 8;
|
||
|
|
}
|
||
|
|
|
||
|
|
subtest "distcheck" => sub {
|
||
|
|
my ( $output, $status ) = make "distcheck";
|
||
|
|
is $status, 0, $makebin . ' distcheck exits with value 0';
|
||
|
|
is $output, "", $makebin . ' distcheck gives empty output';
|
||
|
|
};
|