Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

143 lines (103 sloc) 3.411 kB
#!/usr/bin/perl -w
use 5.006;
use Config;
use ExtUtils::MakeMaker;
my $PACKAGE = 'Test::Simple';
($PACKAGE_FILE = $PACKAGE) =~ s|::|/|g;
my $LAST_API_CHANGE = 0.48;
my $LAST_THREAD_CHANGE = 0.48;
eval "require $PACKAGE";
my $PACKAGE_VERSION = ${$PACKAGE.'::VERSION'};
unless ($@) { # Make sure we did find the module.
if( $PACKAGE_VERSION < $LAST_API_CHANGE ) {
printf <<"CHANGE_WARN", $LAST_API_CHANGE;
NOTE: There have been API changes between this version and any older
than version %s! Please see the Changes file for details.
CHANGE_WARN
sleep 5;
}
if( $] >= 5.008001 && $Config{useithreads} &&
$PACKAGE_VERSION < $LAST_THREAD_CHANGE
)
{
printf <<"THREAD_WARN", $LAST_THREAD_CHANGE;
NOTE: The behavior of Test::More and threads has changed between this
version and any older than version %s! Please see the Changes file
for details.
THREAD_WARN
sleep 5;
}
}
my $mm_ver = $ExtUtils::MakeMaker::VERSION;
if ($mm_ver =~ /_/) { # dev version
$mm_ver = eval $mm_ver;
die $@ if $@;
}
# Windows does not expand *.t and MakeMaker only started working around
# that for TESTS in 6.27. This does not introduce a circular dep
# because MakeMaker ships with its own Test::More.
my %Prereqs;
$Prereqs{'ExtUtils::MakeMaker'} = 6.27 if $^O eq 'MSWin32';
WriteMakefile(
NAME => $PACKAGE,
VERSION_FROM => "lib/$PACKAGE_FILE.pm",
ABSTRACT_FROM => "lib/$PACKAGE_FILE.pm",
AUTHOR => 'Michael G Schwern <schwern@pobox.com>',
($mm_ver >= 6.31 ? (LICENSE => 'perl') : ()),
PREREQ_PM => {
Test::Harness => 2.03,
%Prereqs
},
# Added to the core in 5.7.3 and also 5.6.2.
INSTALLDIRS => $] >= 5.006002 ? 'perl' : 'site',
test => {
TESTS => 't/*.t t/*/*.t',
},
($mm_ver < 6.48 ? () : (MIN_PERL_VERSION => 5.006)),
($mm_ver < 6.46 ? () : (META_MERGE => {
resources => {
license => 'http://dev.perl.org/licenses/',
homepage => 'http://test-more.googlecode.com',
bugtracker => 'http://code.google.com/p/test-more/issues',
repository => 'http://github.com/schwern/test-more/tree/master',
MailingList => 'http://groups.google.com/group/test-more-users',
},
}))
);
{
package MY;
sub postamble {
return <<'MAKE';
perltidy:
find . -name '*.pm' | xargs perltidy -b
find . -name '*.pm.bak' | xargs rm
MAKE
}
# Test with multiple versions of perl before releasing
sub dist_test {
my $self = shift;
my $make = $self->SUPER::dist_test(@_);
return $make unless $ENV{AUTHOR_TESTING} and $ENV{AUTHOR_TESTING} eq 'MSCHWERN';
# Strip off all the whitespace at the end, we'll put our own in.
$make =~ s{\s+\z}{\n};
my @perls = qw(
perl5.12.1
perl5.10.1
perl5.8.9
perl5.6.2
);
for my $perl (@perls) {
$make .= sprintf <<'END', $perl;
cd $(DISTVNAME) && $(MAKE) clean && %s Makefile.PL && PERL_RELEASING=0 $(MAKE) test $(PASTHRU)
END
}
# Rebuild so subsequent make commands work
$make .= <<'END';
$(MAKE) realclean
$(FULLPERLRUN) Makefile.PL
$(MAKE)
END
$make .= "\n";
return $make;
}
}
Jump to Line
Something went wrong with that request. Please try again.