[check_postgres] [commit] Fix up numbering for skips.

[check_postgres at bucardo.org]

Committed by Greg Sabino Mullane <greg at endpoint.com>

Fix up numbering for skips.

---
 t/99_spellcheck.t |    9 ++++-----
 1 files changed, 4 insertions(+), 5 deletions(-)

diff --git a/t/99_spellcheck.t b/t/99_spellcheck.t
index 2b9d984..a69a0aa 100644
--- a/t/99_spellcheck.t
+++ b/t/99_spellcheck.t
@@ -18,7 +18,7 @@ elsif (!eval { require Text::SpellChecker; 1 }) {
 }
 else {
 	opendir my $dir, 't' or die qq{Could not open directory 't': $!\n};
-	@testfiles = map { "t/$_" } grep { /^.+\.(t|pl)$/ } readdir $dir;
+	@testfiles = map { "t/$_" } grep { /^.+\.(t|pl|pm)$/ } readdir $dir;
 	closedir $dir or die qq{Could not closedir "$dir": $!\n};
 	plan tests => 3+ at testfiles;
 }
@@ -84,7 +84,7 @@ for my $file (qw/index.html/) {
 ## Now the embedded POD
 SKIP: {
 	if (!eval { require Pod::Spell; 1 }) {
-		skip 'Need Pod::Spell to test the spelling of embedded POD', 2;
+		skip 'Need Pod::Spell to test the spelling of embedded POD', 1;
 	}
 
 	for my $file (qw{check_postgres.pl}) {
@@ -99,7 +99,7 @@ SKIP: {
 ## Now the comments
 SKIP: {
 	if (!eval { require File::Comments; 1 }) {
-		skip 'Need File::Comments to test the spelling inside comments', 4;
+		skip 'Need File::Comments to test the spelling inside comments', 1+ at testfiles;
 	}
 	my $fc = File::Comments->new();
 
@@ -109,13 +109,12 @@ SKIP: {
 	}
 
 	for my $file (@testfiles, qw{check_postgres.pl}) {
-		## Tests as well?
 		if (! -e $file) {
 			fail(qq{Could not find the file "$file"!});
 		}
 		my $string = $fc->comments($file);
 		if (! $string) {
-			fail(qq{Could not get comments from file $file});
+			fail(qq{Could not get comments inside file $file});
 			next;
 		}
 		$string = join "\n" => @$string;
-- 
1.6.0.5