t/aggregate/live_engine_response_emptybody.t

   1 #!perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use FindBin;
   7 use lib "$FindBin::Bin/../lib";
   8
   9 use Test::More;
  10 use Catalyst::Test 'TestApp';
  11
  12 # body '0'
  13 {
  14     my $res = request('/zerobody');
  15     is $res->content, '0';
  16     is $res->header('Content-Length'), '1';
  17 }
  18
  19 # body ''
  20 {
  21     my $res = request('/emptybody');
  22     is $res->content, '';
  23     ok !defined $res->header('Content-Length');
  24 }
  25
  26 done_testing;
  27