This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make new basic.t glob tests work on Win & VMS
authorFather Chrysostomos <sprout@cpan.org>
Tue, 25 Oct 2011 05:16:38 +0000 (22:16 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 25 Oct 2011 05:16:38 +0000 (22:16 -0700)
I forgot about the default PERL_EXTERNAL_GLOB setting on VMS and the
special treatment of backslashes on Windows in bsd_glob.c.

ext/File-Glob/t/basic.t

index bdf0d94..f7a2f1f 100644 (file)
@@ -10,7 +10,7 @@ BEGIN {
     }
 }
 use strict;
-use Test::More tests => 23;
+use Test::More tests => 22;
 BEGIN {use_ok('File::Glob', ':glob')};
 use Cwd ();
 
@@ -237,8 +237,11 @@ is(&File::Glob::GLOB_ERROR, 0, "Successfuly ignored unsupported flag");
 package frimpy; # get away from the glob override, so we can test csh_glob,
 use Test::More;  # which is perl's default
 
+# In case of PERL_EXTERNAL_GLOB:
+use subs 'glob';
+BEGIN { *glob = \&File::Glob::csh_glob }
+
 is +(glob "a'b'")[0], (<a'b' c>)[0], "a'b' with and without spaces";
 is +(<a"b">)[0], (<a"b" c>)[0], 'a"b" with and without spaces';
-is <\\*>, '*', 'backslashes without spaces';
-is_deeply [sort <\\* .\\*>], [sort qw<* .*>], 'backslashes with spaces';
-is <\\ >, ' ', 'final escaped space';
+is_deeply [<\\* .\\*>], [<\\*>,<.\\*>], 'backslashes with(out) spaces';
+like <\\ >, qr/^\\? \z/, 'final escaped space';