Commit | Line | Data |
---|---|---|
127272a7 | 1 | #!perl |
2 | use strict; | |
3 | use warnings; | |
4 | use lib 'lib'; | |
5 | use Test::More tests => 2; | |
6 | use lib 't/lib'; | |
7 | use Test::WWW::Mechanize::Catalyst 'Catty'; | |
8 | ||
9 | my $root = "http://localhost"; | |
10 | ||
11 | my $m = Test::WWW::Mechanize::Catalyst->new; | |
12 | $m->get_ok("$root/bad_content_encoding/"); | |
13 | ||
14 | # per https://rt.cpan.org/Ticket/Display.html?id=36442 | |
15 | $m->content_contains('foo'); |