add tests for undef filenames

Author: simbabque

lib/HTML/Form.pm

@@ -1540,7 +1540,7 @@ sub form_name_value {
     my @headers = $self->headers;
     my $content = $self->content;
     my %headers = @headers;
-    if (defined $content || grep m/^Content$/, keys %headers) {
+    if (defined $content || grep m/^Content$/i, keys %headers) {
 	$filename = $file unless defined $filename;
 	$file = undef;
 	unshift(@headers, "Content" => $content);

t/file_upload.t

@@ -49,6 +49,12 @@ $input->file([ $file, $filename, Content => 'inline content' ]);
 like( $form->make_request->as_string, qr! filename="$filename" !x,
       q/Upload: using $input->file([$file, $filename, Content => '?'])/ );
 
+# $input->file and array refs and undef
+($form, $input) = new_form_and_input;
+$input->file([ undef, $filename, Content => 'inline content' ]);
+like( $form->make_request->as_string, qr! filename="$filename" !x,
+      q/Upload: using $input->file([undef, $filename, Content => '?'])/ );
+
 # $form->value and array refs
 ($form, $input) = new_form_and_input;
 $form->value('document', [ $file, $filename, Content => 'inline content' ]);
@@ -78,4 +84,12 @@ $input->content('inline content');
 like( $form->make_request->as_string, qr! filename="$filename" !x,
       "Upload: 'file', 'filename' and 'content' informed directly" );
 
+
+# undef, 'filename' and 'content' informed directly
+($form, $input) = new_form_and_input;
+$input->filename($filename);
+$input->content('inline content');
+like( $form->make_request->as_string, qr! filename="$filename" !x,
+      "Upload: undef, 'filename' and 'content' informed directly" );
+
 done_testing;