[check_postgres] [commit] No spellcheck of deleted file.
check_postgres at bucardo.org
check_postgres at bucardo.org
Mon May 4 16:19:43 UTC 2009
Committed by Greg Sabino Mullane <greg at endpoint.com>
No spellcheck of deleted file.
---
t/99_spellcheck.t | 27 ++-------------------------
1 files changed, 2 insertions(+), 25 deletions(-)
diff --git a/t/99_spellcheck.t b/t/99_spellcheck.t
index a69a0aa..3df1cf3 100644
--- a/t/99_spellcheck.t
+++ b/t/99_spellcheck.t
@@ -20,7 +20,7 @@ else {
opendir my $dir, 't' or die qq{Could not open directory 't': $!\n};
@testfiles = map { "t/$_" } grep { /^.+\.(t|pl|pm)$/ } readdir $dir;
closedir $dir or die qq{Could not closedir "$dir": $!\n};
- plan tests => 3+ at testfiles;
+ plan tests => 2+ at testfiles;
}
my %okword;
@@ -58,30 +58,7 @@ sub spellcheck {
}
-## First, the plain old textfiles
-for my $file (qw/index.html/) {
- if (!open $fh, '<', $file) {
- fail(qq{Could not find the file "$file"!});
- }
- else {
- { local $/; $_ = <$fh>; }
- close $fh or warn qq{Could not close "$file": $!\n};
- if ($file eq 'Changes') {
- s{\b(?:from|by) [A-Z][\w \.]+[<\[\n]}{}gs;
- s{\b[Tt]hanks to ([A-Z]\w+\W){1,3}}{}gs;
- s{Abhijit Menon-Sen}{}gs;
- s{eg/lotest.pl}{};
- s{\[.+?\]}{}gs;
- s{\S+\@\S+\.\S+}{}gs;
- }
- elsif ($file eq 'README.dev') {
- s/^\t\$.+//gsm;
- }
- spellcheck($file => $_, $file);
- }
-}
-
-## Now the embedded POD
+## The embedded POD
SKIP: {
if (!eval { require Pod::Spell; 1 }) {
skip 'Need Pod::Spell to test the spelling of embedded POD', 1;
--
1.6.0.5
More information about the Check_postgres
mailing list