Test globs in test_files()

git-svn-id: http://svn.perl.org/modules/Module-Build/trunk@4348 50811bd7-b8ce-0310-adc1-d9db26280581
FROGGS · Aug 13, 2003 · d9f05a3 · d9f05a3
1 parent fd8f436
commit d9f05a3
Showing 1 changed file with 11 additions and 1 deletion.
diff --git a/t/extend.t b/t/extend.t
@@ -1,7 +1,7 @@
 use strict;
 
 use Test; 
-BEGIN { plan tests => 3 }
+BEGIN { plan tests => 6 }
 use Module::Build;
 ok 1;
 
@@ -21,3 +21,13 @@ $build->dispatch('loop');
 ok $::x, 1;
 
 $build->dispatch('realclean');
+
+{
+  # Make sure globbing works in filenames
+
+  $build->test_files('*t*');
+  my $files = $build->test_files;
+  ok  grep {$_ eq 'script'} @$files;
+  ok  grep {$_ eq 'test.pl'} @$files;
+  ok !grep {$_ eq 'Build.PL'} @$files;
+}