# perl usage: use lib 't/lib'; use TAP::Harness; use TAP::Formatter::HTML; my $fmt = TAP::Formatter::HTML->new({ verbosity => -2, }); use File::Find::Rule; my @tests = sort { $a cmp $b } File::Find::Rule->file() ->name( '*.t' ) ->in( 't/' ); local $ENV{TEST_VERBOSE} = 1; my $harness = TAP::Harness->new( { formatter => $fmt , merge => 1, # verbosity => 1, lib => [ 't/lib', 'lib' ], switches => ($ARGV[0] eq '--cover') ? [ '-MDevel::Cover=-ignore,.,-select,^lib/.+,-coverage,statement,subroutine,condition,branch' ] : [], }); $harness->runtests( @tests );