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
#
# parselink.t -- Tests for Pod::ParseLink.
#
# Copyright 2001, 2009 by 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.

# The format of each entry in this array is the L<> text followed by the
# five-element parse returned by parselink.
our @TESTS = (
    [ 'foo',
      undef, 'foo', 'foo', undef, 'pod' ],

[ 'foo|bar',
      'foo', 'foo', 'bar', undef, 'pod' ],

[ 'foo/bar',
      undef, '"bar" in foo', 'foo', 'bar', 'pod' ],

[ 'foo/"baz boo"',
      undef, '"baz boo" in foo', 'foo', 'baz boo', 'pod' ],

[ '/bar',
      undef, '"bar"', undef, 'bar', 'pod' ],

[ '/"baz boo"',
      undef, '"baz boo"', undef, 'baz boo', 'pod' ],

[ '/baz boo',
      undef, '"baz boo"', undef, 'baz boo', 'pod' ],

[ 'foo bar/baz boo',
      undef, '"baz boo" in foo bar', 'foo bar', 'baz boo', 'pod' ],

[ 'foo bar  /  baz boo',
      undef, '"baz boo" in foo bar', 'foo bar', 'baz boo', 'pod' ],

[ "foo\nbar\nbaz\n/\nboo",
      undef, '"boo" in foo bar baz', 'foo bar baz', 'boo', 'pod' ],

[ 'anchor|name/section',
      'anchor', 'anchor', 'name', 'section', 'pod' ],

[ '"boo var baz"',
      undef, '"boo var baz"', undef, 'boo var baz', 'pod' ],

[ 'bar baz',
      undef, '"bar baz"', undef, 'bar baz', 'pod' ],

[ '"boo bar baz / baz boo"',
      undef, '"boo bar baz / baz boo"', undef, 'boo bar baz / baz boo',
      'pod' ],

[ 'fooZ<>bar',
      undef, 'fooZ<>bar', 'fooZ<>bar', undef, 'pod' ],

[ 'Testing I<italics>|foo/bar',
      'Testing I<italics>', 'Testing I<italics>', 'foo', 'bar', 'pod' ],

[ 'foo/I<Italic> text',
      undef, '"I<Italic> text" in foo', 'foo', 'I<Italic> text', 'pod' ],

[ 'fooE<verbar>barZ<>/Section C<with> I<B<other> markup',
      undef, '"Section C<with> I<B<other> markup" in fooE<verbar>barZ<>',
      'fooE<verbar>barZ<>', 'Section C<with> I<B<other> markup', 'pod' ],

[ 'Nested L<http://www.perl.org/>|fooE<sol>bar',
      'Nested L<http://www.perl.org/>', 'Nested L<http://www.perl.org/>',
      'fooE<sol>bar', undef, 'pod' ],

[ 'ls(1)',
      undef, 'ls(1)', 'ls(1)', undef, 'man' ],

[ '  perlfunc(1)/open  ',
      undef, '"open" in perlfunc(1)', 'perlfunc(1)', 'open', 'man' ],

[ 'some manual page|perl(1)',
      'some manual page', 'some manual page', 'perl(1)', undef, 'man' ],

[ 'http://www.perl.org/',
      undef, 'http://www.perl.org/', 'http://www.perl.org/', undef, 'url' ],

[ 'news:yld72axzc8.fsf@windlord.stanford.edu',
      undef, 'news:yld72axzc8.fsf@windlord.stanford.edu',
      'news:yld72axzc8.fsf@windlord.stanford.edu', undef, 'url' ],

[ 'link|http://www.perl.org/',
      'link', 'link', 'http://www.perl.org/', undef, 'url' ],

[ '0|http://www.perl.org/',
      '0', '0', 'http://www.perl.org/', undef, 'url' ],

[ '0|Pod::Parser',
      '0', '0', 'Pod::Parser', undef, 'pod' ],
);

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

use strict;

use Test::More tests => 28;
BEGIN { use_ok ('Pod::ParseLink') }

# Used for reporting test failures.
my @names = qw(text inferred name section type);

for (@TESTS) {
    my @expected = @$_;
    my $link = shift @expected;
    my @results = parselink ($link);
    my $pretty = $link;
    $pretty =~ s/\n/\\n/g;
    is_deeply (\@results, \@expected, $pretty);
}