Finished first version of WrapCGI dist

[catagits/Catalyst-Controller-WrapCGI.git] / t / wrap-cgi.t

diff --git a/t/wrap-cgi.t b/t/wrap-cgi.t
new file mode 100644 (file)
index 0000000..fbf5891
--- /dev/null
+++ b/t/wrap-cgi.t
@@ -0,0 +1,19 @@
+#!perl
+
+use strict;
+use warnings;
+
+use FindBin '$Bin';
+use lib "$Bin/lib";
+
+use Test::More tests => 1;
+
+use Catalyst::Test 'TestApp';
+use HTTP::Request::Common;
+
+my $response = request POST '/cgi-bin/test.cgi', [
+    foo => 'bar',
+    bar => 'baz'
+];
+
+is($response->content, 'foo:bar bar:baz', 'POST to CGI');