[check_postgres] [commit] No spellcheck of deleted file.

[check_postgres at bucardo.org]

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