t/aggregate/live_component_controller_httpmethods.t

   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 done_testing;