1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
# Time-stamp: "0";
use strict;
use Test;
BEGIN { plan tests => 11 }
#use LWP::Debug ('+');
use LWP::UserAgent::Determined;
my $browser = LWP::UserAgent::Determined->new;
#$browser->agent('Mozilla/4.76 [en] (Win98; U)');
ok 1;
print "# Hello from ", __FILE__, "\n";
print "# LWP::UserAgent::Determined v$LWP::UserAgent::Determined::VERSION\n";
print "# LWP::UserAgent v$LWP::UserAgent::VERSION\n";
print "# LWP v$LWP::VERSION\n" if $LWP::VERSION;
my $url = 'http://www.livejournal.com/~torgo_x/rss';
my $before_count = 0;
my $after_count = 0;
$browser->before_determined_callback( sub {
print "# /Trying ", $_[4][0]->uri, " at ", scalar(localtime), "...\n";
++$before_count;
});
$browser->after_determined_callback( sub {
print "# \\Just tried ", $_[4][0]->uri, " at ", scalar(localtime), ".\n";
++$after_count;
});
my $resp = $browser->get( $url );
ok 1;
print "# That gave: ", $resp->status_line, "\n";
print "# Before_count: $before_count\n";
ok( $before_count > 1 );
print "# After_count: $after_count\n";
ok( $after_count > 1 );
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
$url = "http://www.aoeaoeaoeaoe.int:9876/sntstn";
$before_count = 0;
$after_count = 0;
print "# Trying a nonexistent address, $url\n";
$resp = $browser->get( $url );
ok 1;
$browser->timing('1,2,3');
print "# Timing: ", $browser->timing, "\n";
print "# That gave: ", $resp->status_line, "\n";
print "# Before_count: $before_count\n";
ok $before_count, 4;
print "# After_count: $after_count\n";
ok $after_count, 4;
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
$url = "http://www.interglacial.com/always404alicious/";
$before_count = 0;
$after_count = 0;
print "# Trying a nonexistent address, $url\n";
$resp = $browser->get( $url );
ok 1;
$browser->timing('1,2,3');
print "# Timing: ", $browser->timing, "\n";
print "# That gave: ", $resp->status_line, "\n";
print "# Before_count: $before_count\n";
ok $before_count, 1;
print "# After_count: $after_count\n";
ok $after_count, 1;
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
print "# Okay, bye from ", __FILE__, "\n";
ok 1;
|
