変数一覧も、リンク切れがないかテストをする

perldoc-jp · Jan 4, 2024 · 95e4e87 · 95e4e87
1 parent a38a53d
commit 95e4e87
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/t/endpoints.t b/t/endpoints.t
@@ -73,6 +73,9 @@ subtest 'GET /index/variable' => sub {
     $mech->get('/index/variable');
     is $mech->status, 200, 'status is 200';
     is $mech->title, 'Perlの組み込み変数の翻訳一覧 - perldoc.jp';
+
+    my @links = $mech->find_all_links( url_regex => qr[/variable/] );
+    $mech->links_ok( \@links, 'Check all links for variable links' );
 };
 
 subtest 'GET /index/module' => sub {