Merge branch 'master' of ssh://git.shadowcat.co.uk/Catalyst-Controller-MovableType

[catagits/Catalyst-Controller-MovableType.git] / t / lib / script / testapp_test.pl

diff --git a/t/lib/script/testapp_test.pl b/t/lib/script/testapp_test.pl
new file mode 100644 (file)
index 0000000..1cc8d04
--- /dev/null
+++ b/t/lib/script/testapp_test.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/..";
+use Catalyst::Test 'TestApp';
+
+print request($ARGV[0])->content . "\n";
+
+1;