gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 5105 Regression test for switch statement 

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>
This commit is contained in:
Frédéric Demians 2010-11-11 09:11:00 +01:00 committed by Chris Cormack
parent dcb86689f7
commit 5ebb5d4f4c
1 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
t/00-deprecated.t Executable file
View File

@ -0,0 +1,27 @@
#!/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) );