Commit | Line | Data |
---|---|---|
298a02df | 1 | use strict; |
2 | use warnings FATAL => 'all'; | |
3 | ||
30e2c525 | 4 | use Test::More 'no_plan'; |
5 | use Plack::Test; | |
298a02df | 6 | |
7 | { | |
8 | use Web::Simple 'EnvTest'; | |
9 | package EnvTest; | |
a61c443e | 10 | sub dispatch_request { |
298a02df | 11 | sub (GET) { |
a61c443e | 12 | my $env = $_[PSGI_ENV]; |
298a02df | 13 | [ 200, |
14 | [ "Content-type" => "text/plain" ], | |
15 | [ 'foo' ] | |
16 | ] | |
17 | }, | |
18 | } | |
19 | } | |
20 | ||
298a02df | 21 | my $app = EnvTest->new; |
22 | ||
1bba6f88 | 23 | ok $app->run_test_request(GET => 'http://localhost/')->is_success; |