1 files changed, 31 insertions, 0 deletions
diff --git a/gnu/usr.bin/perl/lib/Test/Harness/t/prove-globbing.t b/gnu/usr.bin/perl/lib/Test/Harness/t/prove-globbing.t
new file mode 100755
index 00000000000..e0f3c864a64
--- /dev/null
+++ b/gnu/usr.bin/perl/lib/Test/Harness/t/prove-globbing.t
@@ -0,0 +1,31 @@
+BEGIN {
+    if( $ENV{PERL_CORE} ) {
+        chdir 't';
+        @INC = ('../lib', 'lib');
+    }
+    else {
+        unshift @INC, 't/lib';
+    }
+}
+
+use strict;
+use File::Spec;
+use Test::More;
+plan skip_all => "Not adapted to perl core" if $ENV{PERL_CORE};
+plan skip_all => "Not installing prove" if -e "t/SKIP-PROVE";
+
+plan tests => 1;
+
+my $prove = File::Spec->catfile( File::Spec->curdir, "blib", "script", "prove" );
+my $tests = File::Spec->catfile( 't', 'prove*.t' );
+
+GLOBBAGE: {
+    my @actual = sort qx/$prove --dry $tests/;
+    chomp @actual;
+
+    my @expected = (
+        File::Spec->catfile( "t", "prove-globbing.t" ),
+        File::Spec->catfile( "t", "prove-switches.t" ),
+    );
+    is_deeply( \@actual, \@expected, "Expands the wildcards" );
+}