[Catalyst-commits] r6747 - trunk/Catalyst-View-Mason/t

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2007-08-28 16:58:03 +0100 (Tue, 28 Aug 2007)
New Revision: 6747

Added:
   trunk/Catalyst-View-Mason/t/content_type.t
Log:
Add a test for the correct default content type.


Added: trunk/Catalyst-View-Mason/t/content_type.t
===================================================================
--- trunk/Catalyst-View-Mason/t/content_type.t	                        (rev 0)
+++ trunk/Catalyst-View-Mason/t/content_type.t	2007-08-28 15:58:03 UTC (rev 6747)
@@ -0,0 +1,15 @@
+#!perl
+
+use strict;
+use warnings;
+use Test::More tests => 3;
+
+use FindBin;
+use lib "$FindBin::Bin/lib";
+
+use_ok('Catalyst::Test', 'TestApp');
+
+my $response = request('/test');
+
+ok($response->is_success, 'request ok');
+is($response->header('content-type'), 'text/html; charset=utf-8', 'default content type ok');