#!/usr/bin/perl -w
use strict;
use lib 't';
use testlib;
sub run {
# Tests for links
no_link('','http://www.perl.com', "Simple non-existing link");
no_link('http://www.perl.com',"http://www.perl.com", "Plain text gets not interpreted as link");
link_ok('Title',"http://www.perl.com", "A link is found");
link_count('IconTitle',"http://www.perl.com", 2,"A link that appears twice is reported twice");
link_ok('Mail me at
some address',
'corion@somewhere.else', "Links are not found if commented out");
};
runtests(5,\&run);