Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 51 lines (39 sloc) 1.33 KB
# Generate sub testing package system
#
#
# make mini test targets for playing around with
# in testing...
opendir(DIR,"t") || warn "No test directory. Weird!";
@files = readdir(DIR);
shift @files;
shift @files;
foreach my $file (@files) {
$file =~ /(\w+)\.t/ || next;
$file = $1;
$line = "test_$file :: pure_all\n\tPERL_DL_NONLAZY=1 \$(FULLPERL) -I\$(INST_ARCHLIB) -I\$(INST_LIB) -I\$(PERL_ARCHLIB) -I\$(PERL_LIB) -e \'use Test::Harness qw(&runtests \$\$verbose); \$\$verbose=\$(TEST_VERBOSE); runtests \@ARGV;\' t/$file.t\n";
push(@tline,$line);
push(@targets,$file);
$tset .= "$file \\\n";
}
$tline = join('',@tline);
$tline = "show_tests :\n\t\@echo \'type make test_<subtest> to run\'\n\t\@echo '$tset'\n$tline\n";
print STDERR "Generated sub tests. go make show_tests to see available subtests\n";
sub MY::postamble {
$tline;
}
use ExtUtils::MakeMaker;
require 5.004;
$NAME = 'bioperl-pedigree';
$DISTNAME = 'bioperl-pedigree';
$VERSION = "0.01";
@BACKUP_FILES = ();
WriteMakefile(
NAME => $NAME,
DISTNAME => $DISTNAME,
VERSION => $VERSION,
'dist' => { COMPRESS => 'gzip -9f',
SUFFIX => '.gz',
DIST_DEFAULT => 'all tardist',
},
'realclean' => { FILES => join( ' ', @BACKUPFILES) }
);