t/underscore.t

   1 use Web::Simple 'TestApp';
   2 use Test::More 0.88;
   3
   4 sub TestApp::dispatch_request {
   5   sub (GET + ?*) {
   6     [ 200, [ 'Content-type' => 'text/plain' ], [ $_{foo} ] ]
   7   }
   8 }
   9
  10 my $res = TestApp->new->run_test_request(GET => '/?foo=bar');
  11
  12 is($res->content, 'bar', '%_ set ok');
  13
  14 done_testing;