Commit | Line | Data |
760d121e |
1 | use strict; |
2 | use warnings; |
3 | use Test::More; |
4 | use HTTP::Request::Common qw/GET POST DELETE PUT /; |
5 | |
6 | use FindBin; |
7 | use lib "$FindBin::Bin/../lib"; |
8 | |
9 | use Catalyst::Test 'TestApp'; |
10 | |
11 | is(request(GET '/httpmethods/foo')->content, 'get'); |
12 | is(request(POST '/httpmethods/foo')->content, 'post'); |
13 | is(request(DELETE '/httpmethods/foo')->content, 'default'); |
14 | |
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'); |
18 | |
19 | is(request(GET '/httpmethods/baz')->content, 'any'); |
20 | is(request(POST '/httpmethods/baz')->content, 'any'); |
21 | is(request(DELETE '/httpmethods/baz')->content, 'any'); |
22 | |
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'); |
27 | |
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'); |
32 | |
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'); |
36 | |
37 | |
38 | done_testing; |