Commit | Line | Data |
760d121e |
1 | use strict; |
2 | use warnings; |
3 | use Test::More; |
0c246eea |
4 | use HTTP::Request::Common qw/GET POST DELETE PUT/; |
760d121e |
5 | |
6 | use FindBin; |
7 | use lib "$FindBin::Bin/../lib"; |
8 | |
9 | use Catalyst::Test 'TestApp'; |
0c246eea |
10 | |
11 | sub OPTIONS { |
12 | HTTP::Request->new('OPTIONS', @_); |
13 | } |
14 | |
760d121e |
15 | is(request(GET '/httpmethods/foo')->content, 'get'); |
16 | is(request(POST '/httpmethods/foo')->content, 'post'); |
17 | is(request(DELETE '/httpmethods/foo')->content, 'default'); |
18 | |
19 | is(request(GET '/httpmethods/bar')->content, 'get or post'); |
20 | is(request(POST '/httpmethods/bar')->content, 'get or post'); |
21 | is(request(DELETE '/httpmethods/bar')->content, 'default'); |
22 | |
23 | is(request(GET '/httpmethods/baz')->content, 'any'); |
24 | is(request(POST '/httpmethods/baz')->content, 'any'); |
25 | is(request(DELETE '/httpmethods/baz')->content, 'any'); |
26 | |
f3a49d84 |
27 | is(request(GET '/httpmethods/chained_get')->content, 'chained_get'); |
28 | is(request(POST '/httpmethods/chained_post')->content, 'chained_post'); |
29 | is(request(PUT '/httpmethods/chained_put')->content, 'chained_put'); |
30 | is(request(DELETE '/httpmethods/chained_delete')->content, 'chained_delete'); |
760d121e |
31 | |
f3a49d84 |
32 | is(request(GET '/httpmethods/get_put_post_delete')->content, 'get2'); |
33 | is(request(POST '/httpmethods/get_put_post_delete')->content, 'post2'); |
34 | is(request(PUT '/httpmethods/get_put_post_delete')->content, 'put2'); |
760d121e |
35 | is(request(DELETE '/httpmethods/get_put_post_delete')->content, 'delete2'); |
36 | |
f3a49d84 |
37 | is(request(GET '/httpmethods/check_default')->content, 'get3'); |
38 | is(request(POST '/httpmethods/check_default')->content, 'post3'); |
39 | is(request(PUT '/httpmethods/check_default')->content, 'chain_default'); |
760d121e |
40 | |
0c246eea |
41 | is(request(GET '/httpmethods/opt_typo')->content, 'typo'); |
42 | is(request(POST '/httpmethods/opt_typo')->content, 'typo'); |
43 | is(request(PUT '/httpmethods/opt_typo')->content, 'typo'); |
44 | |
45 | is(request(OPTIONS '/httpmethods/opt')->content, 'options'); |
46 | is(request(GET '/httpmethods/opt')->content, 'default'); |
47 | is(request(POST '/httpmethods/opt')->content, 'default'); |
48 | |
760d121e |
49 | done_testing; |