t/14alt_content_type.t

   1 use strict;
   2 use warnings;
   3 use Test::More 0.88;
   4
   5 use FindBin;
   6 use lib "$FindBin::Bin/lib";
   7
   8 use_ok('Catalyst::Test', 'TestApp');
   9
  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 }
  16 done_testing;