Patch to skip symplink-related tests on Windows.
--
Alexandr Ciornii,
http://chorny.net
--- 00.load.t.dist 2017-12-30 22:59:09.000000000 +0200
+++ 00.load.t 2017-12-30 23:10:29.312500000 +0200
@@ -10,9 +10,6 @@
chdir 't'; # just in case we're not already there
BAIL_OUT('I am not in the right place, sorry') if !-d 'path';
-symlink('path','link');
-BAIL_OUT('Could not make the symlink') if !-l 'link';
-
my @lookup_build = (
[qw(dir.a)],
[qw(file.b)],
@@ -36,6 +33,14 @@
$results{$key}++;
}
is_deeply(\%results, \%path_lookup, 'path traversal');
+
+
+SKIP: {
+skip "Symlinks not supported", 10 if $^O eq 'MSWin32';
+
+symlink('path','link');
+BAIL_OUT('Could not make the symlink') if !-l 'link';
+
%results = ();
$iter = Path::Iter::get_iterator('link/');
while(my $key = $iter->()) {
@@ -79,6 +84,9 @@
ok(exists $initial{'path'}, 'arg change included');
ok(keys %initial == 1, 'arg change changed');
+}
+
+
my @results;
$iter = Path::Iter::get_iterator('path/', { 'readdir_handler' => sub { my ($dir, @contents) = @_; sort { $a cmp $b } @contents } });
while(my $key = $iter->()) {
