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
|
#!/usr/bin/env perl -T
use strict;
use warnings;
use Test::More;
BEGIN {
eval { use Test::WWW::Mechanize };
plan skip_all => "Test::WWW::Mechanize required for tests" if $@;
}
plan tests => 4;
# Bring in testing hierarchy
use lib './t';
# Set up testing webapp
use TestApp;
$ENV{CGI_APP_RETURN_ONLY} = 1;
# Set up testing web server
use CAPCServer;
use constant PORT => 13432;
my $server = CAPCServer->new(PORT);
my $pid = $server->background;
ok($pid, 'HTTP Server started') or die "Can't start the server";
sub cleanup { kill(9, $pid) };
$SIG{__DIE__} = \&cleanup;
CREATE_TESTING:
{
# Create our mech object
my $mech = Test::WWW::Mechanize->new( cookie_jar => {} );
# Force the base app to render some output (something it should NOT normally do!).
# Capture the result.
$mech->get_ok('http://localhost:' . PORT . '/', "Got CAPTCHA successfully");
# Get the cookie we should have been fed
my $jar = $mech->cookie_jar;
isa_ok($jar, "HTTP::Cookies");
# Make sure we got a cryptographic hash in a cookie
my $cookie = $jar->as_string;
my ($hash) = $cookie =~ /hash=(.*?);/;
isnt($hash, "", "Received cryptographic hash in cookie");
# Make sure our header is type 'image/png'
#like($hash, qr/^image\/png$/i, "Valid image/png header type for content");
# Make sure we have content
}
CLEANUP:
{
cleanup();
}
|
