From be362298d530f8995feccb981742076c3b581ee9 Mon Sep 17 00:00:00 2001 From: Timofey Potapov Date: Tue, 11 Jun 2024 21:08:36 +0200 Subject: [PATCH] Removed xt files. --- MANIFEST | 1 - MANIFEST.SKIP.bak | 15 ------------- MANIFEST.bak | 16 -------------- xt/boilerplate.t | 56 ----------------------------------------------- 4 files changed, 88 deletions(-) delete mode 100644 MANIFEST.SKIP.bak delete mode 100644 MANIFEST.bak delete mode 100644 xt/boilerplate.t diff --git a/MANIFEST b/MANIFEST index eae9ecf..136b787 100644 --- a/MANIFEST +++ b/MANIFEST @@ -13,4 +13,3 @@ t/03-usage-mojo-useragent.t t/manifest.t t/pod-coverage.t t/pod.t -xt/boilerplate.t diff --git a/MANIFEST.SKIP.bak b/MANIFEST.SKIP.bak deleted file mode 100644 index ee602e6..0000000 --- a/MANIFEST.SKIP.bak +++ /dev/null @@ -1,15 +0,0 @@ -#!include_default -# Avoid configuration metadata file -^MYMETA\. - -# Avoid Module::Build generated and utility files. -\bBuild$ -\bBuild.bat$ -\b_build -\bBuild.COM$ -\bBUILD.COM$ -\bbuild.com$ -^MANIFEST\.SKIP - -# Avoid archives of this distribution -\bPod-LOL-[\d\.\_]+ diff --git a/MANIFEST.bak b/MANIFEST.bak deleted file mode 100644 index 8bafef1..0000000 --- a/MANIFEST.bak +++ /dev/null @@ -1,16 +0,0 @@ -Build.PL -Changes -ignore.txt -lib/Pod/LOL.pm -MANIFEST This list of files -META.json -META.yml -README -t/00-load.t -t/01-usage-simple.t -t/02-usage-ojo.t -t/03-usage-mojo-useragent.t -t/manifest.t -t/pod-coverage.t -t/pod.t -xt/boilerplate.t diff --git a/xt/boilerplate.t b/xt/boilerplate.t deleted file mode 100644 index e1f1436..0000000 --- a/xt/boilerplate.t +++ /dev/null @@ -1,56 +0,0 @@ -#!perl -use 5.006; -use strict; -use warnings; -use Test::More; - -plan tests => 3; - -sub not_in_file_ok { - my ( $filename, %regex ) = @_; - open( my $fh, '<', $filename ) - or die "couldn't open $filename for reading: $!"; - - my %violated; - - while ( my $line = <$fh> ) { - while ( my ( $desc, $regex ) = each %regex ) { - if ( $line =~ $regex ) { - push @{ $violated{$desc} ||= [] }, $.; - } - } - } - - if ( %violated ) { - fail( "$filename contains boilerplate text" ); - diag "$_ appears on lines @{$violated{$_}}" for keys %violated; - } - else { - pass( "$filename contains no boilerplate text" ); - } -} - -sub module_boilerplate_ok { - my ( $module ) = @_; - not_in_file_ok( - $module => 'the great new $MODULENAME' => qr/ - The great new /, - 'boilerplate description' => qr/Quick summary of what the module/, - 'stub function definition' => qr/function[12]/, - ); -} - -TODO: { - local $TODO = "Need to replace the boilerplate text"; - - not_in_file_ok( - README => "The README is used..." => qr/The README is used/, - "'version information here'" => qr/to provide version information/, - ); - - not_in_file_ok( Changes => "placeholder date/time" => qr(Date/time) ); - - module_boilerplate_ok( 'lib/Pod/LOL.pm' ); - - -} -