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
88
89
|
use strict;
use Wiki::Toolkit;
use Wiki::Toolkit::TestConfig;
use Wiki::Toolkit::Plugin::Ping;
use IO::Socket;
use Test::More;
eval { require DBD::SQLite; };
if ($@) {
plan skip_all => 'SQLite not availalbe';
} else {
plan tests => 5;
}
# Create a test wiki
require Wiki::Toolkit::Setup::SQLite;
my %config = %{$Wiki::Toolkit::TestConfig::config{"SQLite"}};
Wiki::Toolkit::Setup::SQLite::setup($config{dbname});
require Wiki::Toolkit::Store::SQLite;
my $store = Wiki::Toolkit::Store::SQLite->new(%config);
my $wiki = Wiki::Toolkit->new( store=>$store );
my $port = 112233;
# Listen on a special port, so we can check a ping happened
my $sock = new IO::Socket::INET (
LocalPort => $port,
Proto => 'tcp',
Listen => 1,
);
unless($sock) {
die("Can't listen on port $port for test");
}
# Create, to call localhost
my $plugin = Wiki::Toolkit::Plugin::Ping->new(
node_to_url => "http://wiki.org/\$node",
services => {
test => "http://localhost:$port/url=\$url"
},
agent => "Wiki::Toolkit::Plugin::Ping test suite",
);
ok( $plugin, "Plugin was created OK with the local URL" );
# Register it
$wiki->register_plugin(plugin=>$plugin);
# Call post_write on it
$plugin->post_write(
node => "TestNode",
id => 12,
version => 1,
content => "Stuff",
metadata => {}
);
# Check they actually sent us something
my $rsock = $sock->accept();
my @req;
my $going = 1;
while($going && (my $line = <$rsock>)) {
$line =~ s/\r?\n$//;
unless($line) { $going = 0; }
push @req,$line;
warn "**$line**\n";
}
# Check they requested the right thing
my $allreq = join "\n", @req;
like( $req[0], qr/^GET \/url=http:\/\/wiki.org\/TestNode/, "Did right get" );
like( $allreq, qr/^Host: localhost:$port/m, "Correct http/1.1 host" );
like( $allreq, qr/^User-Agent: Wiki::Toolkit::Plugin::Ping test suite/m, "Correct user-agent" );
# Send them an OK
print $rsock "HTTP/1.0 200 OK\r\n\r\n";
# Close
close($rsock);
close($sock);
# All happy
ok( "Happy" );
|
