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