X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Fmore-psgi-compat.t;fp=t%2Fmore-psgi-compat.t;h=71dc283921bab5190e99bb4823b9887161dce62a;hp=0000000000000000000000000000000000000000;hb=4491e0cc34b2be2fc485ad01fbbf51b61fed4c22;hpb=d3ea94fca0bdddf69d008424f279a4271bcdc4ae

diff --git a/t/more-psgi-compat.t b/t/more-psgi-compat.t
new file mode 100644
index 0000000..71dc283
--- /dev/null
+++ b/t/more-psgi-compat.t
@@ -0,0 +1,37 @@
+#!/usr/bin/env perl
+
+use warnings;
+use strict;
+
+use FindBin;
+use Test::More;
+use HTTP::Request::Common;
+
+use lib "$FindBin::Bin/lib";
+use Catalyst::Test 'TestFromPSGI';
+
+{
+  ok my $response = request GET '/from_psgi_array',
+    'got welcome from a catalyst controller';
+
+  is $response->content, 'helloworldtoday',
+    'expected content body /from_psgi_array';
+}
+
+{
+  ok my $response = request GET '/from_psgi_code',
+    'got welcome from a catalyst controller';
+
+  is $response->content, 'helloworldtoday2',
+    'expected content body /from_psgi_code';
+}
+
+{
+  ok my $response = request GET '/from_psgi_code_itr',
+    'got welcome from a catalyst controller';
+
+  is $response->content, 'helloworldtoday3',
+    'expected content body /from_psgi_code_itr';
+}
+
+done_testing;