Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
basic.cap	7.07 KB	-r--r--r--	2014-12-27 11:48
basic.clr	7.14 KB	-r--r--r--	2014-12-27 11:48
basic.man	8.46 KB	-r--r--r--	2014-12-27 11:48
basic.ovr	7.57 KB	-r--r--r--	2014-12-27 11:48
basic.pod	7.07 KB	-r--r--r--	2014-12-27 11:48
basic.t	3.88 KB	-r--r--r--	2014-12-27 11:48
basic.txt	6.91 KB	-r--r--r--	2014-12-27 11:48
color.t	2.3 KB	-r--r--r--	2014-12-27 11:48
devise-date.t	364 B	-r--r--r--	2014-12-27 11:48
filehandle.t	2.51 KB	-r--r--r--	2014-12-27 11:48
man-empty.t	1.62 KB	-r--r--r--	2014-12-27 11:48
man-heading.t	2.09 KB	-r--r--r--	2014-12-27 11:48
man-options.t	4.54 KB	-r--r--r--	2014-12-27 11:48
man-perlio.t	3.28 KB	-r--r--r--	2014-12-27 11:48
man-utf8.t	3.2 KB	-r--r--r--	2014-12-27 11:48
man.t	9.5 KB	-r--r--r--	2014-12-27 11:48
overstrike.t	2.04 KB	-r--r--r--	2014-12-27 11:48
parselink.t	3.36 KB	-r--r--r--	2014-12-27 11:48
pod-parser.t	2.17 KB	-r--r--r--	2014-12-27 11:48
pod-spelling.t	2.42 KB	-r--r--r--	2014-12-27 11:48
pod.t	353 B	-r--r--r--	2014-12-27 11:48
termcap.t	2.15 KB	-r--r--r--	2014-12-27 11:48
text-empty.t	1.44 KB	-r--r--r--	2014-12-27 11:48
text-encoding.t	3.48 KB	-r--r--r--	2014-12-27 11:48
text-options.t	5.14 KB	-r--r--r--	2014-12-27 11:48
text-perlio.t	3.09 KB	-r--r--r--	2014-12-27 11:48
text-utf8.t	3.01 KB	-r--r--r--	2014-12-27 11:48
text.t	2.48 KB	-r--r--r--	2014-12-27 11:48

Rename

#!/usr/bin/perl -w
#
# Check for spelling errors in POD documentation
#
# Checks all POD files in the tree for spelling problems using Pod::Spell and
# either aspell or ispell.  aspell is preferred.  This test is disabled unless
# RRA_MAINTAINER_TESTS is set, since spelling dictionaries vary too much
# between environments.
#
# Copyright 2008, 2009 Russ Allbery <rra@stanford.edu>
#
# This program is free software; you may redistribute it and/or modify it
# under the same terms as Perl itself.

use strict;
use Test::More;

# Skip all spelling tests unless the maintainer environment variable is set.
plan skip_all => 'Spelling tests only run for maintainer'
    unless $ENV{RRA_MAINTAINER_TESTS};

# Load required Perl modules.
eval 'use Test::Pod 1.00';
plan skip_all => 'Test::Pod 1.00 required for testing POD' if $@;
eval 'use Pod::Spell';
plan skip_all => 'Pod::Spell required to test POD spelling' if $@;

# Locate a spell-checker.  hunspell is not currently supported due to its lack
# of support for contractions (at least in the version in Debian).
my @spell;
my %options = (aspell => [ qw(-d en_US --home-dir=./ list) ],
               ispell => [ qw(-d american -l -p /dev/null) ]);
SEARCH: for my $program (qw/aspell ispell/) {
    for my $dir (split ':', $ENV{PATH}) {
        if (-x "$dir/$program") {
            @spell = ("$dir/$program", @{ $options{$program} });
        }
        last SEARCH if @spell;
    }
}
plan skip_all => 'aspell or ispell required to test POD spelling'
    unless @spell;

# Prerequisites are satisfied, so we're going to do some testing.  Figure out
# what POD files we have and from that develop our plan.
$| = 1;
my @pod = all_pod_files ();
plan tests => scalar @pod;

# Finally, do the checks.
for my $pod (@pod) {
    my $child = open (CHILD, '-|');
    if (not defined $child) {
        die "Cannot fork: $!\n";
    } elsif ($child == 0) {
        my $pid = open (SPELL, '|-', @spell) or die "Cannot run @spell: $!\n";
        open (POD, '<', $pod) or die "Cannot open $pod: $!\n";
        my $parser = Pod::Spell->new;
        $parser->parse_from_filehandle (\*POD, \*SPELL);
        close POD;
        close SPELL;
        exit ($? >> 8);
    } else {
        my @words = <CHILD>;
        close CHILD;
      SKIP: {
            skip "@spell failed for $pod", 1 unless $? == 0;
            for (@words) {
                s/^\s+//;
                s/\s+$//;
            }
            is ("@words", '', $pod);
        }
    }
}