1#!/usr/bin/env perl 2use warnings; 3use strict; 4 5use Jifty::Test::Dist; 6use Jifty::Test::WWW::Mechanize; 7 8my @tests = ( 9 { 10 url => "/path_test/foo", 11 text => '/path_test/foo - T::D', 12 }, 13 { 14 url => "/path_test/foo/", 15 text => '/path_test/foo - T::D', 16 }, 17 { 18 url => "/path_test/foo/index.html", 19 text => '/path_test/foo/index.html - Mason', 20 }, 21 { 22 url => "/path_test/bar", 23 text => '/path_test/bar/index.html - T::D', 24 }, 25 { 26 url => "/path_test/bar/index.html", 27 text => '/path_test/bar/index.html - T::D', 28 }, 29 { 30 url => "/path_test/in_both", 31 text => '/path_test/in_both - T::D', 32 }, 33 { 34 url => "/path_test/mason_only", 35 text => '/path_test/mason_only - Mason', 36 }, 37 { 38 url => "/path_test/td_only", 39 text => '/path_test/td_only - T::D', 40 }, 41); 42 43plan tests => 2 + scalar(@tests) * 2; 44 45my $server = Jifty::Test->make_server; 46isa_ok( $server, 'Jifty::TestServer' ); 47my $URL = $server->started_ok; 48 49my $mech = Jifty::Test::WWW::Mechanize->new; 50foreach my $test (@tests) { 51 $mech->get_ok( $URL . $test->{url}, "get '$URL: $test->{url}'" ); 52 $mech->content_contains( $test->{text}, "found content '$test->{text}'" ); 53} 54