add %_ setting

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

diff --git a/t/underscore.t b/t/underscore.t
new file mode 100644 (file)
index 0000000..7252582
--- /dev/null
+++ b/t/underscore.t
@@ -0,0 +1,14 @@
+use Web::Simple 'TestApp';
+use Test::More;
+
+sub TestApp::dispatch_request {
+  sub (GET + ?*) {
+    [ 200, [ 'Content-type' => 'text/plain' ], [ $_{foo} ] ]
+  }
+}
+
+my $res = TestApp->new->run_test_request(GET => '/?foo=bar');
+
+is($res->content, 'bar', '%_ set ok');
+
+done_testing;