From 7f3bef00e76c769c80b28a749db58cca2d5fd3fc Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Tue, 22 Jul 2025 15:44:13 +0200 Subject: [PATCH] Bug 40467: Remove t/00-deprecated.t it only tests for the presence of "switch" --- t/00-deprecated.t | 31 ------------------------------- 1 file changed, 31 deletions(-) delete mode 100755 t/00-deprecated.t diff --git a/t/00-deprecated.t b/t/00-deprecated.t deleted file mode 100755 index 0131992ca10..00000000000 --- 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 ) ); - -- 2.34.1