1
0
mirror of synced 2026-03-10 04:10:56 +00:00

Make several tests not check files multiple times via symlinks

This commit is contained in:
Axel Beckert
2012-06-04 19:01:56 +02:00
parent 55c3c15d11
commit 93b7cb3bf2
5 changed files with 10 additions and 5 deletions

View File

@@ -29,8 +29,9 @@ sub checkFile
# The file.
my $file = $File::Find::name;
# We don't care about directories
# We don't care about directories or symbolic links
return if ( ! -f $file );
return if ( -l $file );
# Nor about backup files.
return if ( $file =~ /~$/ );

View File

@@ -35,8 +35,9 @@ sub checkFile
# The file.
my $file = $File::Find::name;
# We don't care about directories
# We don't care about directories or symbolic links
return if ( ! -f $file );
return if ( -l $file );
# Nor about Makefiles
return if ( $file =~ /\/Makefile$/ );

View File

@@ -37,8 +37,9 @@ sub checkFile
# The file.
my $file = $File::Find::name;
# We don't care about directories
# We don't care about directories or symbolic links
return if ( ! -f $file );
return if ( -l $file );
# We're only testing things beneath hooks
return if ( $file !~ /hooks/ );

View File

@@ -33,8 +33,9 @@ sub checkFile
# The file.
my $file = $File::Find::name;
# We don't care about directories
# We don't care about directories or symbolic links
return if ( ! -f $file );
return if ( -l $file );
# Finally mercurial files are fine.
return if ( $file =~ /\.hg\// );

View File

@@ -31,8 +31,9 @@ sub checkFile
# The file.
my $file = $File::Find::name;
# We don't care about directories
# We don't care about directories or symbolic links
return if ( ! -f $file );
return if ( -l $file );
# We don't care about empty files
return unless -s $file;