parselink.t revision 1
1N/A# Copyright 2001 by Russ Allbery <rra@stanford.edu> 1N/A# This program is free software; you may redistribute it and/or modify it 1N/A# under the same terms as Perl itself. 1N/A# The format of each entry in this array is the L<> text followed by the 1N/A# five-element parse returned by parselink. When adding a new test, also 1N/A# increment the test count in the BEGIN block below. We don't use any of the 1N/A# fancy test modules intentionally for backward compatibility to older 1N/A undef, '"bar" in foo', 'foo', 'bar', 'pod' ], 1N/A undef, '"baz boo" in foo', 'foo', 'baz boo', 'pod' ], 1N/A undef, '"baz boo" in foo bar', 'foo bar', 'baz boo', 'pod' ], 1N/A [ 'foo bar / baz boo', 1N/A undef, '"baz boo" in foo bar', 'foo bar', 'baz boo', 'pod' ], 1N/A [ "foo\nbar\nbaz\n/\nboo", 1N/A undef, '"boo" in foo bar baz', 'foo bar baz', 'boo', 'pod' ], 1N/A 'anchor', 'anchor', 'name', 'section', 'pod' ], 1N/A [ '"boo bar baz / baz boo"', 1N/A undef, '"boo bar baz / baz boo"', undef, 'boo bar baz / baz boo', 1N/A 'Testing I<italics>', 'Testing I<italics>', 'foo', 'bar', 'pod' ], 1N/A [ 'foo/I<Italic> text', 1N/A undef, '"I<Italic> text" in foo', 'foo', 'I<Italic> text', 'pod' ], 1N/A [ 'fooE<verbar>barZ<>/Section C<with> I<B<other> markup', 1N/A undef, '"Section C<with> I<B<other> markup" in fooE<verbar>barZ<>', 1N/A 'fooE<verbar>barZ<>', 'Section C<with> I<B<other> markup', 'pod' ], 1N/A [ ' perlfunc(1)/open ', 1N/A undef, '"open" in perlfunc(1)', 'perlfunc(1)', 'open', 'man' ], 1N/A [ 'some manual page|perl(1)', 1N/A 'some manual page', 'some manual page', 'perl(1)', undef, 'man' ], 1N/A [ 'news:yld72axzc8.fsf@windlord.stanford.edu', 1N/A undef, 'news:yld72axzc8.fsf@windlord.stanford.edu', 1N/A 'news:yld72axzc8.fsf@windlord.stanford.edu', undef, 'url' ] 1N/A chdir 't' if -d 't'; 1N/A# Used for reporting test failures. 1N/A # Make sure to check undef explicitly; we don't want undef to match 1N/A # the empty string because they're semantically different.