# 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_ 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) } );