4 use HTTP::Request::Common qw/GET POST DELETE PUT /;
7 use lib "$FindBin::Bin/../lib";
9 use Catalyst::Test 'TestApp';
11 is(request(GET '/httpmethods/foo')->content, 'get');
12 is(request(POST '/httpmethods/foo')->content, 'post');
13 is(request(DELETE '/httpmethods/foo')->content, 'default');
15 is(request(GET '/httpmethods/bar')->content, 'get or post');
16 is(request(POST '/httpmethods/bar')->content, 'get or post');
17 is(request(DELETE '/httpmethods/bar')->content, 'default');
19 is(request(GET '/httpmethods/baz')->content, 'any');
20 is(request(POST '/httpmethods/baz')->content, 'any');
21 is(request(DELETE '/httpmethods/baz')->content, 'any');
23 is(request(GET '/httpmethods/chained_get')->content, 'chained_get');
24 is(request(POST '/httpmethods/chained_post')->content, 'chained_post');
25 is(request(PUT '/httpmethods/chained_put')->content, 'chained_put');
26 is(request(DELETE '/httpmethods/chained_delete')->content, 'chained_delete');
28 is(request(GET '/httpmethods/get_put_post_delete')->content, 'get2');
29 is(request(POST '/httpmethods/get_put_post_delete')->content, 'post2');
30 is(request(PUT '/httpmethods/get_put_post_delete')->content, 'put2');
31 is(request(DELETE '/httpmethods/get_put_post_delete')->content, 'delete2');
33 is(request(GET '/httpmethods/check_default')->content, 'get3');
34 is(request(POST '/httpmethods/check_default')->content, 'post3');
35 is(request(PUT '/httpmethods/check_default')->content, 'chain_default');