From 16edfcf9bfe55dfdce0d68171a7a41626f6a5aad Mon Sep 17 00:00:00 2001 From: "Zane C. Bowers-Hadley" Date: Wed, 11 Oct 2017 05:43:20 +0000 Subject: [PATCH] remove unneeded bits git-svn-id: svn://127.0.0.1/Perl/Proc-ProcessTable-Colorizer/trunk@963 0c1c3402-1be1-de11-8092-0022686faf23 --- Proc-ProcessTable-Colorizer/xt/boilerplate.t | 57 -------------------- 1 file changed, 57 deletions(-) delete mode 100644 Proc-ProcessTable-Colorizer/xt/boilerplate.t diff --git a/Proc-ProcessTable-Colorizer/xt/boilerplate.t b/Proc-ProcessTable-Colorizer/xt/boilerplate.t deleted file mode 100644 index 89b61df..0000000 --- a/Proc-ProcessTable-Colorizer/xt/boilerplate.t +++ /dev/null @@ -1,57 +0,0 @@ -#!perl -T -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/Proc/ProcessTable/Colorizer.pm'); - - -} -