Permalink
Browse files

desensitize t/path_class.t to t/tmp/ race conditions

  • Loading branch information...
1 parent 88a265e commit 4b2a945a82a60676f10346eec98b24f961beb33b @nothingmuch nothingmuch committed Sep 15, 2008
Showing with 4 additions and 4 deletions.
  1. +4 −4 t/path_class.t
View
@@ -21,10 +21,10 @@ foreach my $dir ( $dist->subdir("t"), $dist->subdir("lib"), $dist ) {
depth_first => 0,
);
- my $strings = $paths->filter(sub {[ map { "$_" } @$_ ]});
+ my $strings = $paths->filter(sub {[ grep { !/tmp/ } map { "$_" } @$_ ]});
my @rec;
- $dir->recurse( callback => sub { push @rec, "$_[0]" }, depthfirst => 0, preorder => 1 );
+ $dir->recurse( callback => sub { push @rec, "$_[0]" unless $_[0] =~ /tmp/ }, depthfirst => 0, preorder => 1 );
my @all = $strings->all;
@@ -52,10 +52,10 @@ foreach my $dir ( $dist->subdir("t"), $dist->subdir("lib"), $dist ) {
depth_first => 1,
);
- my $strings = $paths->filter(sub {[ map { "$_" } @$_ ]});
+ my $strings = $paths->filter(sub {[ grep { !/tmp/ } map { "$_" } @$_ ]});
my @rec;
- $dir->recurse( callback => sub { push @rec, "$_[0]" }, depthfirst => 1, preorder => 1 );
+ $dir->recurse( callback => sub { push @rec, "$_[0]" unless $_[0] =~ /tmp/ }, depthfirst => 1, preorder => 1 );
my @all = $strings->all;

0 comments on commit 4b2a945

Please sign in to comment.