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
#
# basic.t -- Basic tests for podlators.
#
# Copyright 2001, 2002, 2004, 2006, 2009, 2012
#     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.

BEGIN {
    chdir 't' if -d 't';
    if ($ENV{PERL_CORE}) {
        @INC = '../lib';
    }
    unshift (@INC, '../blib/lib');
    $| = 1;
}

use strict;

use Test::More tests => 15;

BEGIN {
    use_ok ('Pod::Man');
    use_ok ('Pod::Text');
    use_ok ('Pod::Text::Overstrike');
    use_ok ('Pod::Text::Termcap');
}

# Find the path to the test source files.  This requires some fiddling when
# these tests are run as part of Perl core.
sub source_path {
    my $file = shift;
    if ($ENV{PERL_CORE}) {
        require File::Spec;
        my $updir = File::Spec->updir;
        my $dir = File::Spec->catdir ($updir, 'lib', 'Pod', 't');
        return File::Spec->catfile ($dir, $file);
    } else {
        return $file;
    }
}

# Hard-code a few values to try to get reproducible results.
$ENV{COLUMNS} = 80;
$ENV{TERM} = 'xterm';
$ENV{TERMCAP} = 'xterm:co=80:do=^J:md=\E[1m:us=\E[4m:me=\E[m';

# Map of translators to file extensions to find the formatted output to
# compare against.
my %translators = ('Pod::Man'              => 'man',
                   'Pod::Text'             => 'txt',
                   'Pod::Text::Color'      => 'clr',
                   'Pod::Text::Overstrike' => 'ovr',
                   'Pod::Text::Termcap'    => 'cap');

# Set default options to match those of pod2man and pod2text.
our %options = (sentence => 0);

for my $module (sort keys %translators) {
  SKIP: {
        if ($module eq 'Pod::Text::Color') {
            eval { require Term::ANSIColor };
            skip 'Term::ANSIColor not found', 3 if $@;
            require_ok ('Pod::Text::Color');
        }
        my $parser = $module->new (%options);
        isa_ok ($parser, $module, 'Parser object');

# For Pod::Man, strip out the autogenerated header up to the .TH title
        # line.  That means that we don't check those things; oh well.  The
        # header changes with each version change or touch of the input file.
        open (OUT, "> out$$.tmp") or die "Cannot create out$$.tmp: $!\n";
        $parser->parse_from_file (source_path ('basic.pod'), \*OUT);
        close OUT;
        if ($module eq 'Pod::Man') {
            open (TMP, "out$$.tmp") or die "Cannot open out$$.tmp: $!\n";
            open (OUTPUT, "> out$$.$translators{$module}")
                or die "Cannot create out$$.$translators{$module}: $!\n";
            local $_;
            while (<TMP>) { last if /^\.nh/ }
            print OUTPUT while <TMP>;
            close OUTPUT;
            close TMP;
            1 while unlink "out$$.tmp";
        } else {
            rename ("out$$.tmp", "out$$.$translators{$module}")
                or die "Cannot rename out$$.tmp: $!\n";
        }

# Slurp the output and expected output and compare them.
        my ($master, $output);
        {
            local $/;
            open (MASTER, source_path ("basic.$translators{$module}"))
                or die "Cannot open basic.$translators{$module}: $!\n";
            open (OUTPUT, "out$$.$translators{$module}")
                or die "Cannot open out$$.$translators{$module}: $!\n";
            $master = <MASTER>;
            $output = <OUTPUT>;
            close MASTER;
            close OUTPUT;
        }

# OS/390 is EBCDIC, which uses a different character for ESC
        # apparently.  Try to convert so that the test still works.
        if ($^O eq 'os390' and $module eq 'Pod::Text::Termcap') {
            $output =~ tr/\033/\047/;
        }
        if (ok ($master eq $output, "$module output is correct")) {
            1 while unlink "out$$.$translators{$module}";
        } else {
            diag ("Non-matching output left in out$$.$translators{$module}\n");
        }
    }
}