What happens when n=>all is passed to $mech->follow_link()?

Author: tcheukueppo

Changes

@@ -9,6 +9,8 @@ Revision history for WWW::Mechanize
       depend on, etc. (GH#352) (James Raspass)
     [DOCUMENTATION]
     - Various POD fixes (Julien Fiegehenn)
+    [TESTS]
+    - Test that follow_link(n=> 'all') warns (Kueppo Tcheukam)
 
 2.15      2022-08-21 07:47:35Z
     [FIXED]

t/local/follow.t

@@ -2,6 +2,7 @@ use warnings;
 use strict;
 use Test::More;
 use Test::Exception;
+use Test::Warnings qw(warning);
 use lib 't/local';
 use LocalServer ();
 
@@ -56,11 +57,15 @@ ok($agent->follow_link( url => '/foo' ), 'can follow url');
 isnt( $agent->uri, $server->url, 'Need to be on a separate page' );
 ok($agent->back(), 'Can still go back');
 
+$agent->quiet(0);
+like warning { $agent->follow_link( n => 'all' ) }, qr/^follow_link\(.*?\) is not valid/, "Can we follow all links?";
+ok( $agent->back(), 'Can still go back' );
+
 ok(!$agent->follow_link( url => '/notfoo' ), "can't follow wrong url");
 is( $agent->uri, $server->url, 'Needs to be on the same page' );
 eval {$agent->follow_link( '/foo' )};
 like($@, qr/Needs to get key-value pairs of parameters.*follow\.t/, "Invalid parameter passing gets better error message");
 
 dies_ok { WWW::Mechanize->new->follow_link( url => '/404' ) } "dies when link does not exist with autocheck";
 
-done_testing;
+done_testing;