use strict; use warnings; use File::Find; use TAP::Harness; my ($base_dir) = @ARGV; my @tests; find(\&wanted, $base_dir); my $harness = TAP::Harness->new(); $harness->runtests(@tests); sub wanted { if($File::Find::name !~ /\.t$/) { return; } push @tests, "$File::Find::name"; }