Merge arcanez stuff and mine
Tomas Doran [Wed, 19 Jan 2011 00:43:18 +0000 (00:43 +0000)]
1  2 
t/catalyst-action-serialize.t

@@@ -1,6 -1,6 +1,7 @@@
  use strict;
  use warnings;
 -use Test::More tests => 11;
++
 +use Test::More 0.88;
  use Data::Serializer;
  use FindBin;
  
@@@ -35,17 -35,8 +36,17 @@@ $res2 = request($t->get(url => '/serial
  ok( $res2->is_success, 'request succeeded (deprecated config)' );
  is( $res2->content, "{'lou' => 'is my cat'}", "request returned proper data");
  
 -my $emptyres = request($t->get(url => '/serialize/empty'));
 -is $emptyres->content, '';
 -ok !$emptyres->header('Content-Length');
 -1;
 +$res = request($t->get(url => '/serialize/empty_serialized'));
 +is $res->content, q[{'foo' => 'bar'}], 'normal case ok';
 +ok $res->header('Content-Length'), 'set content-length when we serialize';
 +
 +$res = request($t->get(url => '/serialize/empty_not_serialized_undef'));
 +is $res->content, '', "body explicitly set to undef results in '' content";
 +ok !$res->header('Content-Length'), "body explicitly set to undef - no automatic content-length";
 +
 +$res = request($t->get(url => '/serialize/empty_not_serialized_blank'));
 +is $res->content, '', "body explicitly set to '' results in '' content";
 +ok !$res->header('Content-Length'), "body explicitly set to '' - no automatic content-length";
 +
 +done_testing;