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

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