Gecko [ dp-client.com ]

Name	Size	Permission
data	[ DIR ]	drwxr-xr-x
fakelib	[ DIR ]	drwxr-xr-x
lib	[ DIR ]	drwxr-xr-x
00-report-prereqs.dd	4.46 KB	-rw-r--r--
00-report-prereqs.t	5.77 KB	-rw-r--r--
README	214 B	-rw-r--r--
basename.t	880 B	-rw-r--r--
basic.t	5.87 KB	-rw-r--r--
children.t	1.11 KB	-rw-r--r--
chmod.t	1020 B	-rw-r--r--
digest.t	1.25 KB	-rw-r--r--
exception.t	1.26 KB	-rw-r--r--
exports.t	674 B	-rw-r--r--
filesystem.t	11.42 KB	-rw-r--r--
input_output.t	18.31 KB	-rw-r--r--
input_output_no_PU_UU.t	579 B	-rw-r--r--
input_output_no_UU.t	566 B	-rw-r--r--
locking.t	1.37 KB	-rw-r--r--
mkpath.t	947 B	-rw-r--r--
mutable_tree_while_iterating.t	1.43 KB	-rw-r--r--
normalize.t	898 B	-rw-r--r--
overloading.t	534 B	-rw-r--r--
parent.t	3.06 KB	-rw-r--r--
recurse.t	3.89 KB	-rw-r--r--
rel-abs.t	7.9 KB	-rw-r--r--
sig_die.t	533 B	-rw-r--r--
subsumes.t	3.16 KB	-rw-r--r--
symlinks.t	1.52 KB	-rw-r--r--
temp.t	2.56 KB	-rw-r--r--
visit.t	447 B	-rw-r--r--
zz-atomic.t	922 B	-rw-r--r--
zzz-spec.t	6.62 KB	-rw-r--r--

Code Editor : recurse.t

use 5.006;
use strict;
use warnings;
use Test::More 0.92;
use File::Temp;
use Config;

use lib 't/lib';
use TestUtils qw/exception tempd/;

use Path::Tiny;

#--------------------------------------------------------------------------#

subtest 'no symlinks' => sub {
    my $wd = tempd;

my @tree = qw(
      aaaa.txt
      bbbb.txt
      cccc/dddd.txt
      cccc/eeee/ffff.txt
      gggg.txt
    );

my @breadth = qw(
      aaaa.txt
      bbbb.txt
      cccc
      gggg.txt
      cccc/dddd.txt
      cccc/eeee
      cccc/eeee/ffff.txt
    );

path($_)->touchpath for @tree;

subtest 'iterator' => sub {
        my $iter = path(".")->iterator( { recurse => 1 } );

my @files;
        while ( my $f = $iter->() ) {
            push @files, "$f";
        }

is_deeply( [ sort @files ], [ sort @breadth ], "Breadth first iteration" )
          or diag explain \@files;
    };
    subtest 'visit' => sub {
        my @files;
        path(".")->visit( sub { push @files, "$_[0]" }, { recurse => 1 }, );

is_deeply( [ sort @files ], [ sort @breadth ], "Breadth first iteration" )
          or diag explain \@files;
    };
    subtest 'visit state' => sub {
        my $result = path(".")->visit( sub { $_[1]->{$_}++ }, { recurse => 1 }, );

is_deeply( [ sort keys %$result ], [ sort @breadth ], "Breadth first iteration" )
          or diag explain $result;
    };
    subtest 'visit abort' => sub {
        my $result =
          path(".")->visit( sub { return \0 if ++$_[1]->{count} == 2 }, { recurse => 1 } );

is( $result->{count}, 2, "visitor aborted on false scalar ref" );
    };
};

subtest 'with symlinks' => sub {
    plan skip_all => "No symlink support"
      unless $Config{d_symlink};

my $wd = tempd;

my @tree = qw(
      aaaa.txt
      bbbb.txt
      cccc/dddd.txt
      cccc/eeee/ffff.txt
      gggg.txt
    );

my @follow = qw(
      aaaa.txt
      bbbb.txt
      cccc
      gggg.txt
      pppp
      qqqq.txt
      cccc/dddd.txt
      cccc/eeee
      cccc/eeee/ffff.txt
      pppp/ffff.txt
    );

my @nofollow = qw(
      aaaa.txt
      bbbb.txt
      cccc
      gggg.txt
      pppp
      qqqq.txt
      cccc/dddd.txt
      cccc/eeee
      cccc/eeee/ffff.txt
    );

path($_)->touchpath for @tree;

symlink path( 'cccc', 'eeee' ), path('pppp');
    symlink path('aaaa.txt'), path('qqqq.txt');

subtest 'no follow' => sub {
        # no-follow
        subtest 'iterator' => sub {
            my $iter = path(".")->iterator( { recurse => 1 } );
            my @files;
            while ( my $f = $iter->() ) {
                push @files, "$f";
            }
            is_deeply( [ sort @files ], [ sort @nofollow ], "Don't follow symlinks" )
              or diag explain \@files;
        };
        subtest 'visit' => sub {
            my @files;
            path(".")->visit( sub { push @files, "$_[0]" }, { recurse => 1 }, );
            is_deeply( [ sort @files ], [ sort @nofollow ], "Don't follow symlinks" )
              or diag explain \@files;
        };
    };

subtest 'follow' => sub {
        subtest 'iterator' => sub {
            my $iter = path(".")->iterator( { recurse => 1, follow_symlinks => 1 } );
            my @files;
            while ( my $f = $iter->() ) {
                push @files, "$f";
            }
            is_deeply( [ sort @files ], [ sort @follow ], "Follow symlinks" )
              or diag explain \@files;
          };
          subtest 'visit' => sub {
            my @files;
            path(".")
              ->visit( sub { push @files, "$_[0]" }, { recurse => 1, follow_symlinks => 1 }, );
            is_deeply( [ sort @files ], [ sort @follow ], "Follow symlinks" )
              or diag explain \@files;
          };
    };
};

done_testing;
#
# This file is part of Path-Tiny
#
# This software is Copyright (c) 2014 by David Golden.
#
# This is free software, licensed under:
#
#   The Apache License, Version 2.0, January 2004
#

${this.title}

Code Editor : recurse.t