blob: d644c4f7856abb6cdc5a2cad43585fc7489a4dfc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
use strict;
use warnings;
use Test::More;
use Catalyst::Test 'FixMyStreet::App';
use Test::WWW::Mechanize::Catalyst 'FixMyStreet::App';
ok( my $mech = Test::WWW::Mechanize::Catalyst->new, 'Created mech object' );
# check that we can get the page
$mech->get_ok('/alert');
$mech->title_like(qr/^Local RSS feeds and email alerts/);
$mech->content_contains('Local RSS feeds and email alerts');
$mech->content_contains('html lang="en-gb"');
# check that we can get list page
$mech->get_ok('/alert/list');
$mech->title_like(qr/^Local RSS feeds and email alerts/);
$mech->content_contains('Local RSS feeds and email alerts');
$mech->content_contains('html lang="en-gb"');
$mech->get_ok('/alert/list?pc=ZZ99ZY');
$mech->title_like(qr/^Local RSS feeds and email alerts for ZZ9 9ZY/);
$mech->content_contains('Local RSS feeds and email alerts for ZZ9 9ZY');
$mech->content_contains('html lang="en-gb"');
done_testing();
|
