t/decoded_content.t

   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');