add tests for tick() with no value

Author: simbabque

Changes

@@ -1,6 +1,9 @@
 Revision history for WWW::Mechanize
 
 {{$NEXT}}
+    [FIXED]
+    - tick() can now handle checkboxes without a value (GH#331) (Jordan M Adler
+      and Julien Fiegehenn)
 
     [DOCUMENTATION]
     - Explain that file URIs need url encoding (GH#329) (Julien Fiegehenn and

lib/WWW/Mechanize.pm

@@ -2043,6 +2043,11 @@ as the third optional argument will cause the checkbox to be unticked.
 The third value does not need to be set if you wish to merely tick the
 box.
 
+    $mech->tick('extra', 'cheese');
+    $mech->tick('extra', 'mushrooms');
+
+    $mech->tick('no_value', ''); # <input type="checkbox" name="no_value">
+
 =cut
 
 sub tick {

t/tick.html

@@ -4,9 +4,12 @@
 
 <input type="checkbox" name="foo" value="hello" /> Hello<br />
 <input type="checkbox" name="foo" value="bye"   /> Bye<br />
-<input type="checkbox" name="foo" value="arse" /> Arse<br />
+<input type="checkbox" name="foo" value="parse" /> Parse<br />
 <input type="checkbox" name="foo" value="wibble" /> Wibble<br />
 <input type="checkbox" name="foo" value="foo" /> Foo<br />
+<label>
+    <input type="checkbox" name="no_value" /> I have no value
+</label>
 
 <input type="Submit" name="submit" value="Submit" label="Submit" />
 </form>

t/tick.t

@@ -22,17 +22,19 @@ $mech->tick('foo','hello');
 $mech->tick('foo','bye');
 $mech->untick('foo','hello');
 
+$mech->tick('no_value', '');
+
 my $form = $mech->form_number(1);
 isa_ok( $form, 'HTML::Form' );
 
 my $reqstring = $form->click->as_string;
 
 my $wanted = <<'EOT';
 POST http://localhost/
-Content-Length: 21
+Content-Length: 31
 Content-Type: application/x-www-form-urlencoded
 
-foo=bye&submit=Submit
+foo=bye&no_value=&submit=Submit
 EOT
 
 is( $reqstring, $wanted, 'Proper posting' );