adds a test for click_button with coordinates

libwww-perl · Dec 28, 2023 · 0618985 · 0618985
1 parent fb42f9f
commit 0618985
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/t/local/click_button.t b/t/local/click_button.t
@@ -113,6 +113,11 @@ subtest 'multiple button selectors' => sub {
     'Dies when multiple button selectors are used';
 };
 
+subtest 'click with coordinates' => sub {
+    $mech->click_button( name => 'button_tag', x => 10, y => 5 );
+    test_click( $mech, 'button_tag', 'Walk' );
+};
+
 sub test_click {
     my $mech  = shift;
     my $name  = shift || 'submit';