X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F04multipart.t;h=074ca1068f8e9b2bf5e2687530d15c5444cea81c;hb=08160cca69ee960a312c88410dd5c5b3b376a577;hp=b64b8bbeb2e794b13c34098dd9263dd05c85f8bf;hpb=e0c37f8e56e19ce6a767ced61f8300891da095ff;p=catagits%2FHTTP-Body.git

diff --git a/t/04multipart.t b/t/04multipart.t
index b64b8bb..074ca10 100644
--- a/t/04multipart.t
+++ b/t/04multipart.t
@@ -6,7 +6,7 @@ use warnings;
 use FindBin;
 use lib "$FindBin::Bin/lib";
 
-use Test::More tests => 140;
+use Test::More tests => 153;
 use Test::Deep;
 
 use Cwd;
@@ -63,9 +63,10 @@ for ( my $i = 1; $i <= 13; $i++ ) {
             $results->{upload}->{$field}->{tempname} = ignore();
         }
     }
-
+	
     cmp_deeply( $body->body, $results->{body}, "$test MultiPart body" );
     cmp_deeply( $body->param, $results->{param}, "$test MultiPart param" );
+    cmp_deeply( $body->param_order, $results->{param_order} ? $results->{param_order} : [], "$test MultiPart param_order" );
     cmp_deeply( $body->upload, $results->{upload}, "$test MultiPart upload" )
         if $results->{upload};
     cmp_ok( $body->state, 'eq', 'done', "$test MultiPart state" );
@@ -82,4 +83,5 @@ for ( my $i = 1; $i <= 13; $i++ ) {
     for my $temp ( @temps ) {
         ok( !-e $temp, "Temp file $temp was deleted" );
     }
+
 }