add tests for tick() with no value

4 files changed, 16 insertions, 3 deletions

diff --git a/Changes b/Changes
index 4f2ef92..e3c11f6 100644
--- a/Changes
+++ b/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)
 
 2.10      2022-07-04 21:06:13Z
 
diff --git a/lib/WWW/Mechanize.pm b/lib/WWW/Mechanize.pm
index ee24ece..79c413a 100644
--- a/lib/WWW/Mechanize.pm
+++ b/lib/WWW/Mechanize.pm
@@ -2076,6 +2076,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 {
diff --git a/t/tick.html b/t/tick.html
index 88256a5..27e1a16 100644
--- a/t/tick.html
+++ b/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>
diff --git a/t/tick.t b/t/tick.t
index 2a46fd0..60df387 100644
--- a/t/tick.t
+++ b/t/tick.t
@@ -22,6 +22,8 @@ $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' );
 
@@ -29,10 +31,10 @@ 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' );