t/aggregate/live_engine_response_emptybody.t

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