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 sub OPTIONS {
  12     HTTP::Request->new('OPTIONS', @_);
  13 }
  14
  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
  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');
  31
  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');
  35 is(request(DELETE '/httpmethods/get_put_post_delete')->content, 'delete2');
  36
  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');
  40
  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
  49 done_testing;