diff --git a/t/00-deprecated.t b/t/00-deprecated.t deleted file mode 100755 index 0131992ca1..0000000000 --- a/t/00-deprecated.t +++ /dev/null @@ -1,31 +0,0 @@ -#!/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::NoWarnings; -use Test::More tests => 2; -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 ) ); -