added a few message tests

mojolicious · Sep 10, 2011 · 05ae728 · 05ae728
1 parent 9ac646c
commit 05ae728
Show file tree

Hide file tree

Showing 2 changed files with 29 additions and 3 deletions.
diff --git a/lib/Mojo/Upload.pm b/lib/Mojo/Upload.pm
@@ -5,9 +5,9 @@ use Carp 'croak';
 use Mojo::Asset::File;
 use Mojo::Headers;
 
-has asset   => sub { Mojo::Asset::File->new };
-has headers => sub { Mojo::Headers->new };
+has asset => sub { Mojo::Asset::File->new };
 has [qw/filename name/];
+has headers => sub { Mojo::Headers->new };
 
 # "B-6
 #  You sunk my scrabbleship!

diff --git a/t/mojo/message.t b/t/mojo/message.t
@@ -3,7 +3,7 @@ use Mojo::Base -strict;
 
 use utf8;
 
-use Test::More tests => 1122;
+use Test::More tests => 1148;
 
 use File::Spec;
 use File::Temp;
@@ -2108,15 +2108,41 @@ is $req2->body, "Hello World!\n", 'right content';
 $req = Mojo::Message::Request->new;
 my $counter = 0;
 $req->on_progress(sub { $counter++ });
+is $counter, 0, 'right count';
+is $req->content->is_parsing_body, undef, 'not parsing body';
+is $req->is_done, undef, 'request is not done';
 $req->parse('GET /foo/bar/baz.html?fo');
+is $counter, 1, 'right count';
+is $req->content->is_parsing_body, undef, 'not parsing body';
+is $req->is_done, undef, 'request is not done';
 $req->parse("o=13#23 HTTP/1.0\x0d\x0aContent");
+is $counter, 2, 'right count';
+is $req->content->is_parsing_body, undef, 'not parsing body';
+is $req->is_done, undef, 'request is not done';
 $req->parse('-Type: text/');
+is $counter, 3, 'right count';
+is $req->content->is_parsing_body, undef, 'not parsing body';
+is $req->is_done, undef, 'request is not done';
 $req->parse("plain\x0d\x0a");
+is $counter, 4, 'right count';
+is $req->content->is_parsing_body, undef, 'not parsing body';
+is $req->is_done, undef, 'request is not done';
 $req->parse('Cookie: $Version=1; foo=bar; $Path=/foobar; bar=baz; $Path=/t');
+is $counter, 5, 'right count';
+is $req->content->is_parsing_body, undef, 'not parsing body';
+is $req->is_done, undef, 'request is not done';
 $req->parse("est/23\x0d\x0a");
+is $counter, 6, 'right count';
+is $req->content->is_parsing_body, undef, 'not parsing body';
+is $req->is_done, undef, 'request is not done';
 $req->parse("Content-Length: 27\x0d\x0a\x0d\x0aHell");
+is $counter, 7, 'right count';
+is $req->content->is_parsing_body, 1, 'is parsing body';
+is $req->is_done, undef, 'request is not done';
 $req->parse("o World!\n1234\nlalalala\n");
 is $counter, 8, 'right count';
+is $req->content->is_parsing_body, undef, 'is parsing body';
+is $req->is_done, 1,     'request is done';
 ok $req->is_done, 'request is done';
 is $req->method,  'GET', 'right method';
 is $req->version, '1.0', 'right version';