You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
20 lines
453 B
20 lines
453 B
#!/usr/bin/perl -w
|
|
use strict;
|
|
use warnings;
|
|
$|++;
|
|
|
|
my @dists = shift || glob("*.tar.gz");
|
|
die "Usage: check_dist Foo-Bar-0.123.tar.gz\n" unless @dists ;
|
|
|
|
for my $dist ( @dists ){
|
|
$dist =~ s/\.tar\.gz//;
|
|
unlink $dist if -e $dist;
|
|
print "Checking $dist\n";
|
|
|
|
system qq{
|
|
DEBUG=1 tar zxpf ${dist}.tar.gz && \
|
|
cd $dist && perl Build.PL && \
|
|
./Build --verbose 1 test && echo ALL TESTS PASS
|
|
};
|
|
print $@ if $@;
|
|
}
|
|
|