1#!/usr/bin/env perl
2use warnings;
3use strict;
4
5use Jifty::Test::Dist tests => 39;
6use Jifty::Test::WWW::Mechanize;
7
8my $server  = Jifty::Test->make_server;
9
10isa_ok($server, 'Jifty::TestServer');
11
12my $URL = $server->started_ok;
13
14my $mech = Jifty::Test::WWW::Mechanize->new;
15
16$mech->get_ok("$URL/regions/list");
17
18$mech->content_contains("Short $_")
19  for (1 .. 5);
20
21for my $i (1 .. 5) {
22    ok($mech->find_link(text => "Short $i"), "Found link: Short $i");
23    $mech->follow_link_ok(text => "Short $i");
24    $mech->content_contains("Long $i");
25}
26
27$mech->content_contains("Long $_")
28  for (1 .. 5);
29
30ok($mech->find_link(text => "Long 1"), "Found link Long 1");
31$mech->follow_link_ok(text => "Long 1");
32
33$mech->content_contains("Short 1");
34for my $i (2 .. 5) {
35    $mech->content_contains("Long $i");
36    $mech->content_lacks("Short $i");
37}
38