[catagits/Test-WWW-Mechanize-Catalyst.git] / t / decoded_content.t

#!perl
use strict;
use warnings;
use lib 'lib';
use Test::More tests => 2;
use lib 't/lib';
use Test::WWW::Mechanize::Catalyst 'Catty';

my $root = "http://localhost";

my $m = Test::WWW::Mechanize::Catalyst->new;
$m->get_ok("$root/bad_content_encoding/");

# per https://rt.cpan.org/Ticket/Display.html?id=36442
$m->content_contains('foo');
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');