blob: 3c2bc3c3dc1c35ff6f94493313c1030fa657b07a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
use strict;
use warnings;
use Test::More tests => 4;
use Test::WWW::Mechanize::Catalyst 'FixMyStreet::App';
my $mech = Test::WWW::Mechanize::Catalyst->new;
# homepage ok
$mech->get_ok('/');
# get 404 page
my $path_to_404 = '/bad/path/page_error_404_not_found';
my $res = $mech->get($path_to_404);
ok !$res->is_success(), "want a bad response";
is $res->code, 404, "got 404";
$mech->content_contains($path_to_404);
|
