[check_postgres] [commit] Fix up numbering for skips.
check_postgres at bucardo.org
check_postgres at bucardo.org
Sun May 3 16:59:47 UTC 2009
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
More information about the Check_postgres
mailing list