From: Steven Schubiger Date: Sun, 9 Aug 2015 20:11:45 +0000 (+0200) Subject: Run test files from test directory X-Git-Tag: v0.57~4^2~7 X-Git-Url: http://git.refcnt.org/?p=colorize.git;a=commitdiff_plain;h=535e0ac2df5fc5dc7284027e99ac6231fd4b2ce1 Run test files from test directory --- diff --git a/test.pl b/test.pl index 959d83f..32b1b51 100755 --- a/test.pl +++ b/test.pl @@ -8,6 +8,7 @@ use constant false => 0; use File::Temp qw(tempfile tempdir tmpnam); use IPC::Open3 qw(open3); use Symbol qw(gensym); +use TAP::Harness; use Test::More; my $tests = 25; @@ -30,6 +31,12 @@ my $write_to_tmpfile = sub return $tmpfile; }; +{ + my @tests = glob('t/*.t'); + my $harness = TAP::Harness->new; + $harness->runtests(@tests); +} + plan tests => $tests; SKIP: {