diff options
author | Steven Schubiger <stsc@refcnt.org> | 2019-09-13 21:15:22 +0200 |
---|---|---|
committer | Steven Schubiger <stsc@refcnt.org> | 2019-09-13 21:15:22 +0200 |
commit | b5ff1ba35b959261c855262b6e820732e72b0bfe (patch) | |
tree | b5b0cdc7ec3438b441e736d56bccf44785ae96ae /test.pl | |
parent | 763a5a99b3af4161cd1dd4c7ee2c450c4b6137a5 (diff) | |
parent | 660177bb22c5b8b54c0ec3aabd1930fd49584e23 (diff) | |
download | colorize-b5ff1ba35b959261c855262b6e820732e72b0bfe.tar.gz colorize-b5ff1ba35b959261c855262b6e820732e72b0bfe.tar.bz2 |
Merge branch 'config_file'
Diffstat (limited to 'test.pl')
-rwxr-xr-x | test.pl | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -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; |