From: Vincent Pit Date: Fri, 4 Jul 2008 11:46:03 +0000 (+0200) Subject: Remove old tests that were wrongly imported X-Git-Tag: v1.00~5 X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FRegexp-Wildcards.git;a=commitdiff_plain;h=42e8c1be1748facf90fdf5f3bb3184770e37d539 Remove old tests that were wrongly imported --- diff --git a/t/boilerplate.t b/t/boilerplate.t deleted file mode 100644 index d5c2259..0000000 --- a/t/boilerplate.t +++ /dev/null @@ -1,49 +0,0 @@ -#!perl -T - -use strict; -use warnings; - -use Test::More 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"); - } -} - -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) -); - -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]/, - ); -} - -module_boilerplate_ok('lib/Regexp/Wildcards.pm'); diff --git a/t/kwalitee.t b/t/kwalitee.t deleted file mode 100644 index 7775e60..0000000 --- a/t/kwalitee.t +++ /dev/null @@ -1,9 +0,0 @@ -#!perl - -use strict; -use warnings; - -use Test::More; - -eval { require Test::Kwalitee; Test::Kwalitee->import() }; -plan( skip_all => 'Test::Kwalitee not installed; skipping' ) if $@; diff --git a/t/pod-coverage.t b/t/pod-coverage.t deleted file mode 100644 index 3ee0ab0..0000000 --- a/t/pod-coverage.t +++ /dev/null @@ -1,12 +0,0 @@ -#!perl -T - -use strict; -use warnings; - -use Test::More; - -eval "use Test::Pod::Coverage 1.04"; -plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@; -all_pod_coverage_ok( { - also_private => [ qr/^do_/, qr/^capture_/, qw/extract/ ] -} ); diff --git a/t/pod.t b/t/pod.t deleted file mode 100644 index f1e1d3e..0000000 --- a/t/pod.t +++ /dev/null @@ -1,10 +0,0 @@ -#!perl -T - -use strict; -use warnings; - -use Test::More; - -eval "use Test::Pod 1.14"; -plan skip_all => "Test::Pod 1.14 required for testing POD" if $@; -all_pod_files_ok();