6 ROBOTest::start("URL Test");
9 while (my $line = <>) {
10 if (($line =~ m/<A\sHREF="file:\/my_file\.testmark_\d"/i) or
11 ($line =~ m/<A\sHREF="http:\/\/my_http\.testmark_\d"/i) or
12 ($line =~ m/<A\sHREF="ftp:\/\/my_href\.testmark_\d"/i) or
13 ($line =~ m/<A\sHREF="mailto:my_mail\@testmark_\d"/i) or
14 ($line =~ m/<img\ssrc="http:\/\/www\.jinwicked\.com\/images\/art\/stallman\.jpg">/i)
22 ROBOTest::assert($count == 6);