use strict;
use warnings;
use TAP::Harness;
use Data::Dumper;

chdir "$ENV{HOME}/src/mymods/Foo"
	or die "Cannot access start dir";

my $harness = TAP::Harness->new ({verbosity => -3, lib => [ qw/lib/ ]});
my $res = $harness->runtests (glob ('t/*.t'));

exit 0 if $res->all_passed;

# Problems
my $fail_count = $res->failed;
my $total_run  = $res->total;
print "Failed $fail_count out of $total_run tests run.\n";
print "\tFailed: $_\n" for $res->failed;