X-Git-Url: http://git.refcnt.org/?p=colorize.git;a=blobdiff_plain;f=test.pl;h=0ed74368197340b7bb1a66cce8a99a04198fe811;hp=85e12b5d1f345bd64c6c43e6e938d672f37b75da;hb=b5ff1ba35b959261c855262b6e820732e72b0bfe;hpb=b03f1cd686c25a4b76c523ccc70c29398afddc47 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;