Commit | Line | Data |
51d6e253 |
1 | #!/usr/bin/perl |
642b19cf |
2 | |
3 | use strict; |
4 | use warnings; |
5 | |
effd6244 |
6 | use FindBin qw/$Bin/; |
7 | use lib "$Bin/lib"; |
8 | |
642b19cf |
9 | use URI::Escape; |
10 | use Test::More; |
11 | |
12 | BEGIN { |
13 | eval { require Test::WWW::Mechanize::Catalyst }; |
14 | plan skip_all => |
15 | "This test requires Test::WWW::Mechanize::Catalyst in order to run" |
16 | if $@; |
17 | plan skip_all => 'Test::WWW::Mechanize::Catalyst >= 0.40 required' if $Test::WWW::Mechanize::Catalyst::VERSION < 0.40; |
18 | } |
19 | |
642b19cf |
20 | use Test::WWW::Mechanize::Catalyst qw/TestApp/; |
21 | |
22 | my $m = Test::WWW::Mechanize::Catalyst->new; |
23 | |
24 | #Number of tests to run. A begin block every 10 will ensure the count is correct |
25 | my $tests; |
26 | plan tests => $tests; |
27 | |
28 | $m->get_ok( "http://localhost/start_session", "get page" ); |
29 | my $session = uri_escape($m->content); |
30 | |
31 | $m->get_ok( "http://localhost/page/$session", "get page" ); |
32 | $m->content_contains( "hit number 2", "session data restored" ); |
33 | |
34 | $m->get_ok( "http://localhost/stream/$session", "get stream" ); |
35 | $m->content_contains( "hit number 3", "session data restored" ); |
36 | |
37 | BEGIN { $tests += 5; } |
38 | |
39 | $m->get_ok( "http://localhost/stream/$session", "get page" ); |
40 | $m->content_contains( "hit number 4", "session data restored" ); |
41 | $m->get_ok( "http://localhost/deleteme/$session", "get page" ); |
42 | |
43 | TODO: { |
44 | local $TODO = "Changing sessions is broken and I've had no success fixing it. Patches welcome"; |
45 | $m->content_is( 'PASS' , 'session id changed' ); |
46 | } |
51d6e253 |
47 | BEGIN { $tests += 4; } |