[catagits/Catalyst-View-TT.git] / t / 14alt_content_type.t

use strict;
use warnings;
use Test::More 0.88;

use FindBin;
use lib "$FindBin::Bin/lib";

use_ok('Catalyst::Test', 'TestApp');

# Hack to support Catalyst v5.90080+ (JNAP)
if(TestApp->can('encoding') and (my $enc = TestApp->encoding) and TestApp->can('clear_encoding')) {
  is(request("/test_alt_content_type")->header('Content-Type'), "text/plain; charset=${\$enc->mime_name}", "Plain text with ${\$enc->mime_name}");
} else {
  is(request("/test_alt_content_type")->header('Content-Type'), 'text/plain', 'Plain Text');
}
done_testing;
Commit	Line	Data
59a2e92a	1	use strict;
59a2e92a	2	use warnings;
8b7d5e5b	3	use Test::More 0.88;
59a2e92a	4
	5	use FindBin;
	6	use lib "$FindBin::Bin/lib";
	7
	8	use_ok('Catalyst::Test', 'TestApp');
59a2e92a	9
e0bcfc98	10	# Hack to support Catalyst v5.90080+ (JNAP)
	11	if(TestApp->can('encoding') and (my $enc = TestApp->encoding) and TestApp->can('clear_encoding')) {
	12	is(request("/test_alt_content_type")->header('Content-Type'), "text/plain; charset=${\$enc->mime_name}", "Plain text with ${\$enc->mime_name}");
	13	} else {
	14	is(request("/test_alt_content_type")->header('Content-Type'), 'text/plain', 'Plain Text');
	15	}
59a2e92a	16	done_testing;