X-Git-Url: http://git.refcnt.org/?a=blobdiff_plain;f=test.pl;h=0ed74368197340b7bb1a66cce8a99a04198fe811;hb=a3c5c67fff4a2b49f6a97702aab15b9a301e3890;hp=85e12b5d1f345bd64c6c43e6e938d672f37b75da;hpb=873cb28ff8c8e0a4b64cc872878a72b5fcd66a98;p=colorize.git

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;