Commit | Line | Data |
---|---|---|
bfa34345 | 1 | use Web::Simple 'TestApp'; |
2 | use Test::More; | |
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; |