#!/usr/bin/perl -w use lib '.'; use lib 't'; use EtTest; ettext_t_init("ettextlinks"); use Test; BEGIN { plan tests => 45 }; # --------------------------------------------------------------------------- %patterns = ( q{
This is a test of a single-word link}, '1word', q{same with text label}, '1wordtext', q{a multi-word link test.}, 'multiword', q{multi-word link test.
As you can see,}, 'linklistsnoemptypara', q{no whitespace is used in the link text.}, '1wordnows', q{a glossary link?}, 'glossary', q{
Or a onewordgloslink?}, 'onewordgloslink', q{even if they were defined far above. Here's a link to NTK}, 'definedabove', #' q{screw up traditional a hrefs.}, 'tradhref', q{tags with embedded quotes should be OK too, even if they too use an EtText link... .}, 'linkimg', q{both text and a tag in the link text .}, 'linktextandimg', q{hrefs on images should be OK too, like this: .}, 'tradhrefimg', q{That's it. Oh, one more -- since "test_requires_this_warning" has not be defined as a link label, test_requires_this_warning is not a link }, #' 'notlink1', q{
This should be a link: http://webmake.taint.org/ .}, 'httpurl', q{Also http://webmake.taint.org ,}, 'httpurlnoslash', q{with URL: <URL:http://webmake.taint.org/> }, 'URLurl', q{
Test links containing colons. an EtLink: HTML::Mason,}, 'etlinkwithcolon', q{a trad link: HTML::Mason.
}, 'tradlinkwithcolon', q{link: URL:http://webmake.taint.org/ url:http://webmake.taint.org/}, 'links_with_url_header', q{Links follows by non-link chars: http://webmake.taint.org/, http://webmake.taint.org/. (blah blah http://webmake.taint.org/)}, 'links_followed_by_non_link_chars', q{a new feature -- link text recogition: this is a test of linktext.}, 'linktext', ); # --------------------------------------------------------------------------- ok (etrun ("< data/$testname.etx", \&patterns_run_cb)); ok_all_patterns();