Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Make test case-insensitive too

This complements 34cf656
  • Loading branch information...
commit fcf99a608b488d49e95ee2ad64a5a5ad903b0af6 1 parent ad40fff
@Leont authored
Showing with 2 additions and 2 deletions.
  1. +2 −2 t/10-basics.t
View
4 t/10-basics.t
@@ -11,12 +11,12 @@ use Devel::FindPerl 'find_perl_interpreter';
my $perl = find_perl_interpreter;
-diag("$perl is not $Config{perlpath}, this may or may not be problematic") if $perl ne $Config{perlpath} and not $ENV{PERL_CORE};
+diag("$perl is not $Config{perlpath}, this may or may not be problematic") if lc $perl ne lc $Config{perlpath} and not $ENV{PERL_CORE};
my $pid = open2(my($in, $out), $perl, qw/-MConfig=myconfig -e print -e myconfig/) or die "Could not start perl at $perl";
binmode $in, ':crlf' if $^O eq 'MSWin32';
my $ret = do { local $/; <$in> };
waitpid $pid, 0;
-is($ret, Config->myconfig, 'Config of found perl equals current perl');
+is(lc $ret, lc Config->myconfig, 'Config of found perl equals current perl');
done_testing;
Please sign in to comment.
Something went wrong with that request. Please try again.