From 535e0ac2df5fc5dc7284027e99ac6231fd4b2ce1 Mon Sep 17 00:00:00 2001 From: Steven Schubiger Date: Sun, 9 Aug 2015 22:11:45 +0200 Subject: Run test files from test directory --- test.pl | 7 +++++++ 1 file changed, 7 insertions(+) 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: { -- cgit v1.2.3