From: Christian Hansen <chansen@cpan.org>
Date: Sun, 4 Sep 2005 13:07:17 +0000 (+0000)
Subject: Test Content-Length
X-Git-Tag: v0.01~5
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=12b06122eefdae80e88bd74c2a72d27ce3f3cad6;hp=44761c0069a2e8055efc3f45c11c42467556bf2a;p=catagits%2FHTTP-Body.git

Test Content-Length
---

diff --git a/t/01use.t b/t/01use.t
index 0fc29fe..b31a2d9 100644
--- a/t/01use.t
+++ b/t/01use.t
@@ -49,7 +49,8 @@ for my $format (qw/multipart urlencoded/) {
         is_deeply( $body->body, $results->{body}, "$num-$format body" );
         is_deeply( $body->param, $results->{param}, "$num-$format param" );
         is_deeply( $body->upload, $results->{upload}, "$num-$format upload" );
-        ok( $body->state eq 'done', "$num-$format state" );
+        cmp_ok( $body->state, 'eq', 'done', "$num-$format state" );
+        cmp_ok( $body->length, '==', $headers->{'Content-Length'}, "$num-$format length" );
     }
 }