1#!/usr/local/bin/perl
2
3use strict;
4
5# Net connection?
6if(!-f "t/have_network") {
7  print "1..0\n";
8  exit 0;
9}
10
11use Image::Grab;
12my $toons = [
13{Name => "Arlo And Janis",
14 regexp => "arlonjanis[0-9]+.*\.gif",
15 refer => "http://www.unitedmedia.com/comics/arlonjanis/",
16 search_url => "http://www.unitedmedia.com/comics/arlonjanis/",
17},
18{Name => "Over the Hedge",
19 regexp => "hedge[0-9]+\.gif",
20 refer => "http://www.unitedmedia.com/comics/hedge/",
21 search_url => "http://www.unitedmedia.com/comics/hedge/",
22}];
23
24print "1..", $#{$toons} + 1,"\n";
25my $comic;
26my $num=0;
27my $name;
28foreach (@$toons)  {
29  $num++;
30  $name = $_->{Name};
31  print "$name\n";
32  $comic->{$name} = new Image::Grab;
33  $comic->{$name}->url($_->{url}) if defined $_->{url};
34  $comic->{$name}->refer($_->{refer}) if defined $_->{refer};
35  $comic->{$name}->regexp($_->{regexp}) if defined $_->{regexp};
36  $comic->{$name}->search_url($_->{search_url}) if defined $_->{search_url};
37
38  if(defined  $comic->{$name}->expand_url) {
39    print "\turl:        ", $_->{url}, "\n" if defined $_->{url};
40    print "\trefer:      ", $_->{refer}, "\n" if defined $_->{refer};
41    print "\tregexp:     ", $_->{regexp}, "\n" if defined $_->{regexp};
42    print "\tsearch_url: ", $_->{search_url}, "\n" if defined $_->{search_url};
43    print "\treal:       ", $comic->{$name}->expand_url(), "\n";
44# getAllURLs should really be fixed so that it only has to fetch once.
45    print "\t\t", join("\n\t\t", $comic->{$name}->getAllURLs), "\n" if $_->{search_url};
46  } else {
47    print "not ";
48  }
49
50    print "ok $num\n" if $comic;
51}
52