From 25afef6a972cc5761894da143924856eb19cb749 Mon Sep 17 00:00:00 2001 From: Steven Schubiger Date: Sun, 18 Aug 2019 20:50:39 +0200 Subject: Invoke new test files --- test.pl | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/test.pl b/test.pl index 85e12b5..0ed7436 100755 --- a/test.pl +++ b/test.pl @@ -7,6 +7,7 @@ use constant true => 1; use constant false => 0; use Colorize::Common qw(:defaults $compiler_flags %BUF_SIZE $valgrind_command $write_to_tmpfile); +use File::Find; use File::Temp qw(tmpnam); use Getopt::Long qw(:config no_auto_abbrev no_ignore_case); use Test::Harness qw(runtests); @@ -28,8 +29,9 @@ my $valgrind_cmd = ''; } { - my @test_files = glob('t/*.t'); - eval { runtests(@test_files) } or warn $@; + my @test_files; + find ({ wanted => sub { push @test_files, $File::Find::name if /\.t$/ } }, 't'); + eval { runtests(sort @test_files) } or warn $@; } plan tests => $tests; -- cgit v1.2.3