Set the application class' %INC entry to something useful

[catagits/Web-Simple.git] / t / inc.t

diff --git a/t/inc.t b/t/inc.t
new file mode 100644 (file)
index 0000000..414d248
--- /dev/null
+++ b/t/inc.t
@@ -0,0 +1,22 @@
+use strict;
+use warnings FATAL => 'all';
+
+use Test::More 'no_plan';
+use Plack::Test;
+
+{
+  use Web::Simple 'IncTest';
+  package IncTest;
+  sub dispatch_request  {
+    sub (GET) {
+      [ 200,
+        [ "Content-type" => "text/plain" ],
+        [ $INC{'IncTest.pm'} ]
+      ]
+    },
+  }
+}
+
+my $app = IncTest->new;
+
+is $app->run_test_request(GET => 'http://localhost/')->decoded_content, __FILE__;