Source/Test/url_test.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use ROBOTest;
   5
   6 ROBOTest::start("URL Test");
   7
   8 my $count = 0;
   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)
  15        ) {
  16        $count++;
  17     }
  18 }
  19
  20 # there should be 6
  21 #
  22 ROBOTest::assert($count == 6);
  23 ROBOTest::finish;
  24