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