Fix tests on msys without symlinks

Changes

@@ -2,6 +2,10 @@ Revision history for Path-Tiny
 
 {{$NEXT}}
 
+    [Tests]
+
+    - Fixes tests on MSYS without symlinks enabled.
+
 0.114     2020-04-26 10:10:29-04:00 America/New_York
 
     - No changes from 0.113-TRIAL.

t/filesystem.t

@@ -4,11 +4,10 @@ use warnings;
 use Test::More 0.96;
 use File::Temp qw(tmpnam tempdir);
 use File::Spec;
-use Config;
 use Cwd;
 
 use lib 't/lib';
-use TestUtils qw/exception/;
+use TestUtils qw/exception has_symlinks/;
 
 use Path::Tiny;
 
@@ -344,8 +343,8 @@ SKIP: {
     my $file   = $newtmp->child("foo.txt");
     my $link   = $newtmp->child("bar.txt");
     $file->spew("Hello World\n");
+    skip "symlink unavailable", 1 unless has_symlinks();
     eval { symlink $file => $link };
-    skip "symlink unavailable", 1 unless $Config{d_symlink};
     ok( $link->lstat->size, "lstat" );
 
     is( $link->realpath, $file->realpath, "realpath resolves symlinks" );

t/lib/TestUtils.pm

@@ -6,6 +6,7 @@ package TestUtils;
 
 use Carp;
 use Cwd qw/getcwd/;
+use Config;
 use File::Temp 0.19 ();
 
 use Exporter;
@@ -14,13 +15,23 @@ our @EXPORT = qw(
   exception
   pushd
   tempd
+  has_symlinks
 );
 
 # If we have Test::FailWarnings, use it
 BEGIN {
     eval { require Test::FailWarnings; 1 } and do { Test::FailWarnings->import };
 }
 
+sub has_symlinks {
+    return $Config{d_symlink}
+      unless $^O eq 'msys';
+
+    # msys needs both `d_symlink` and a special environment variable
+    return unless $Config{d_symlink};
+    return $ENV{MSYS} =~ /winsymlinks:nativestrict/;
+}
+
 sub exception(&) {
     my $code    = shift;
     my $success = eval { $code->(); 1 };

t/recurse.t

@@ -3,10 +3,9 @@ use strict;
 use warnings;
 use Test::More 0.92;
 use File::Temp;
-use Config;
 
 use lib 't/lib';
-use TestUtils qw/exception tempd/;
+use TestUtils qw/exception tempd has_symlinks/;
 
 use Path::Tiny;
 
@@ -69,7 +68,7 @@ subtest 'no symlinks' => sub {
 
 subtest 'with symlinks' => sub {
     plan skip_all => "No symlink support"
-      unless $Config{d_symlink};
+      unless has_symlinks();
 
     my $wd = tempd;
 

t/rel-abs.t

@@ -2,10 +2,9 @@ use 5.008001;
 use strict;
 use warnings;
 use Test::More 0.96;
-use Config;
 
 use lib 't/lib';
-use TestUtils qw/exception pushd tempd/;
+use TestUtils qw/exception pushd tempd has_symlinks/;
 
 use Path::Tiny;
 
@@ -111,7 +110,7 @@ subtest "relative on absolute paths with symlinks" => sub {
     $deep->mkpath();
 
     plan skip_all => "No symlink support"
-      unless $Config{d_symlink};
+      unless has_symlinks();
 
     my ( $path, $base, $expect );
 

t/symlinks.t

@@ -4,13 +4,12 @@ use warnings;
 use Test::More 0.96;
 
 use lib 't/lib';
-use TestUtils qw/exception/;
+use TestUtils qw/exception has_symlinks/;
 
-use Config;
 use Path::Tiny;
 use Cwd 'abs_path';
 
-plan skip_all => "No symlink support" unless $Config{d_symlink};
+plan skip_all => "No symlink support" unless has_symlinks();
 
 subtest "relative symlinks with updir" => sub {
     my $temp = Path::Tiny->tempdir;