File: underscore.t

package info (click to toggle)
libweb-simple-perl 0.033-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 380 kB
  • sloc: perl: 1,622; makefile: 7
file content (14 lines) | stat: -rw-r--r-- 285 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
use Web::Simple 'TestApp';
use Test::More 0.88;

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;