Browse Source

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>
3.6.x-rmaint/testing
Frédéric Demians 11 years ago
committed by Chris Cormack
parent
commit
5ebb5d4f4c
  1. 27
      t/00-deprecated.t

27
t/00-deprecated.t

@ -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) );
Loading…
Cancel
Save