add test for set_fields with upload and text

libwww-perl · Aug 14, 2022 · 829aec4 · 829aec4
1 parent 525caf8
commit 829aec4
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 0 deletions.
diff --git a/t/file_upload.html b/t/file_upload.html
@@ -1,4 +1,5 @@
 <form method="post" enctype="multipart/form-data">
   <input type="file" name="document">
+  <input type="text" name="another_field">
   <input type="submit">
 </form>
diff --git a/t/file_upload.t b/t/file_upload.t
@@ -92,6 +92,14 @@ $as_string = $form->make_request->as_string;
 like( $as_string, qr! filename="$filename" !x,
       q/$mc->set_fields( 'document' => [[ undef, $filename, Content => 'content' ], 1] )/ );
 
+# &set_fields with multiple fields
+$mc->get( $uri );
+$mc->set_fields( 'another_field' => 'foo', 'document' => [ $file, $filename ] );
+($form) = $mc->forms;
+like( $form->make_request->as_string, qr! filename="$filename" !x,
+      q/$mc->set_fields( 'another_field' => 'foo', 'document' => [ $file, $filename ] )/ );
+
+
 # field does not exist
 $mc->get( $uri );
 lives_ok { $mc->set_fields( 'does_not_exist' => [ [$file], 1 ] ) }