Frédéric Demians
5ebb5d4f4c
Add a test identifying Perl scripts and modules using switch statements. This test file follow Chris pre-hook naming convention in order to be triggered for patch submissions. Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
27 lines
706 B
Perl
Executable file
27 lines
706 B
Perl
Executable file
#!/usr/bin/perl
|
|
#
|
|
# Tests usage of deprecated Perl syntax. Deprecated could be extended to the
|
|
# sense of 'not allowed'.
|
|
#
|
|
use warnings;
|
|
use strict;
|
|
use Test::More tests => 1;
|
|
use File::Find;
|
|
use Cwd;
|
|
|
|
my @files_with_switch = do {
|
|
my @files;
|
|
local $/ = undef;
|
|
find( sub {
|
|
my $dir = getcwd();
|
|
return if $dir =~ /blib/;
|
|
return unless /\.(pl|pm)$/; # Don't inspect non-Perl files
|
|
open my $fh, "<", $_;
|
|
my $content = <$fh>;
|
|
push @files, "$dir/$_" if $content =~ /switch\s*\(.*{/;
|
|
}, ( '.' ) );
|
|
@files;
|
|
};
|
|
ok( !@files_with_switch, "Perl syntax: no use of switch statement" )
|
|
or diag( "Files list: " . join(', ', @files_with_switch) );
|
|
|