Fix the handling of fields of type "file"

Author: gilmagno

lib/WWW/Mechanize.pm

@@ -1907,6 +1907,24 @@ C<L<< form_name()|/"$mech->form_name( $name [, \%args ] )" >>> or
 C<L<< form_number()|/"$mech->form_number($number)" >>>
 method or defaulting to the first form on the page).
 
+If the field is of type "file", its value should be an arrayref. Example:
+
+    $mech->field( $file_input, ['/tmp/file.txt'] );
+
+Value examples for "file" inputs, followed by explanation of what each
+index mean:
+
+    ['/tmp/file.txt']
+    ['/tmp/file.txt', 'filename.txt']
+    ['/tmp/file.txt', 'filename.txt', @headers]
+    ['/tmp/file.txt', 'filename.txt', Content => 'some content']
+    [undef,           'filename.txt', Content => 'content here']
+
+Index 0 is the filepath that will be read from disk. Index 1 is the
+filename which will be used in the HTTP request body; if not given,
+filepath (index 0) is used instead. If "Content => 'content here'" is
+informed as shown, then filepath will be ignored.
+
 The optional C<$number> parameter is used to distinguish between two fields
 with the same name.  The fields are numbered from 1.
 
@@ -1922,7 +1940,16 @@ sub field {
     }
     else {
         if ( ref($value) eq 'ARRAY' ) {
-            $form->param($name, $value);
+            my $input = $form->find_input($name);
+
+            if ( $input->type eq 'file' ) {
+                $input->file( shift @$value );
+                $input->filename( shift @$value );
+                $input->headers( @$value );
+            }
+            else {
+                $form->param($name, $value);
+            }
         }
         else {
             $form->value($name => $value);
@@ -2041,6 +2068,19 @@ which has the field value and its number as the 2 elements.
         # set the second $name field to 'foo'
         $mech->set_fields( $name => [ 'foo', 2 ] );
 
+The value of a field of type "file" should be an arrayref as described
+in C<L<< field()|$mech->field( $name, $value, $number ) >>>. Examples:
+
+        $mech->set_fields( $file_field => ['/tmp/file.txt'] );
+        $mech->set_fields( $file_field => ['/tmp/file.txt', 'filename.txt'] );
+
+The value for a "file" input can also be an arrayref containing an
+arrayref and a number, as documented in
+C<L<< submit_form()|$mech->submit_form( ... ) >>>.
+The number will be used to find the field in the form. Example:
+
+        $mech->set_fields( $file_field => [['/tmp/file.txt'], 1] );
+
 The fields are numbered from 1.
 
 For fields that have a predefined set of values, you may also provide a
@@ -2065,10 +2105,20 @@ sub set_fields {
     FIELD:
     for my $field ( keys %fields ) {
         my $value = $fields{$field};
+        my $number = 1;
 
         if ( ref $value eq 'ARRAY' ) {
-            $form->find_input( $field, undef,
-                         $value->[1])->value($value->[0] );
+            my $input = $form->find_input($field);
+
+            # Honor &submit_form's documentation, that says that a
+            # "file" input's value can be in the form of
+            # "[[$filepath, $filename], 1]".
+            if (
+                $input->type ne 'file'
+                || ( $input->type eq 'file' && ref( $value->[0] ) eq 'ARRAY' )
+            ) {
+                ( $value, $number ) = ( $value->[0], $value->[1] );
+            }
         }
         else {
             if ( ref $value eq 'SCALAR' ) {
@@ -2086,9 +2136,8 @@ sub set_fields {
                 }
                 $value = $possible_values[ $$value ];
             }
-
-            $form->value($field => $value);
         }
+        $self->field($field, $value, $number);
     }
 }
 

t/file_upload.html

@@ -0,0 +1,4 @@
+<form method="post" enctype="multipart/form-data">
+  <input type="file" name="document">
+  <input type="submit">
+</form>

t/file_upload.t

@@ -0,0 +1,54 @@
+use strict;
+use warnings;
+use Test::More;
+use WWW::Mechanize;
+use URI::file;
+
+my $file     = 't/file_upload.html';
+my $filename = 'the_file_upload.html';
+my $mc = WWW::Mechanize->new;
+my $uri = URI::file->new_abs( 't/file_upload.html' )->as_string;
+my ($form, $input);
+
+# &field
+
+$mc->get( $uri );
+$mc->field( 'document', [$file, $filename] );
+($form) = $mc->forms;
+like( $form->make_request->as_string, qr! filename="$filename" !x,
+      q/$mc->field( 'document', [$file, $filename] )/ );
+
+$mc->get( $uri );
+$mc->field( 'document', [$file, $filename, Content => 'content'] );
+($form) = $mc->forms;
+like( $form->make_request->as_string, qr! filename="$filename" !x,
+      q/$mc->field( 'document', [$file, $filename, Content => 'content'] )/ );
+
+# &set_fields
+
+$mc->get( $uri );
+$mc->set_fields( 'document' => [ $file, $filename ] );
+($form) = $mc->forms;
+like( $form->make_request->as_string, qr! filename="$filename" !x,
+      q/$mc->set_fields( 'document' => [ $file, $filename ] )/ );
+
+$mc->get( $uri );
+$mc->set_fields( 'document' => [ $file, $filename, Content => 'content' ] );
+($form) = $mc->forms;
+like( $form->make_request->as_string, qr! filename="$filename" !x,
+      q/$mc->set_fields( 'document' => [ $file, $filename, Content => 'content' ] )/ );
+
+$mc->get( $uri );
+$mc->set_fields( 'document' => [[ $file, $filename ], 1] );
+($form) = $mc->forms;
+like( $form->make_request->as_string, qr! filename="$filename" !x,
+      q/$mc->set_fields( 'document' => [[ $file, $filename ], 1] )/ );
+
+$mc->get( $uri );
+$mc->set_fields
+  ( 'document' => [[ $file, $filename, Content => 'content' ], 1] );
+($form) = $mc->forms;
+like( $form->make_request->as_string, qr! filename="$filename" !x,
+      q/$mc->set_fields( 'document' => [[ $file, $filename, Content => 'content' ], 1] )/ );
+
+done_testing;