From a38a53df8e6c218bd6fef2b56f1493cd5a6a37c9 Mon Sep 17 00:00:00 2001 From: kobaken Date: Thu, 4 Jan 2024 10:47:46 +0900 Subject: [PATCH 1/2] =?UTF-8?q?=E9=96=A2=E6=95=B0=E4=B8=80=E8=A6=A7?= =?UTF-8?q?=E3=81=AF=E3=80=81=E7=BF=BB=E8=A8=B3=E3=81=8C=E5=85=A8=E3=81=A6?= =?UTF-8?q?=E3=81=AA=E3=81=95=E3=82=8C=E3=81=A6=E3=81=84=E3=82=8C=E3=81=B0?= =?UTF-8?q?=E3=80=81=E3=83=AA=E3=83=B3=E3=82=AF=E5=88=87=E3=82=8C=E3=81=97?= =?UTF-8?q?=E3=81=AA=E3=81=8F=E3=81=AA=E3=81=A3=E3=81=9F?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- t/endpoints.t | 3 +++ 1 file changed, 3 insertions(+) diff --git a/t/endpoints.t b/t/endpoints.t index 64676ed..b953937 100644 --- a/t/endpoints.t +++ b/t/endpoints.t @@ -64,6 +64,9 @@ subtest 'GET /index/function' => sub { $mech->get('/index/function'); is $mech->status, 200, 'status is 200'; is $mech->title, 'Perlの組み込み関数の翻訳一覧 - perldoc.jp'; + + my @links = $mech->find_all_links( url_regex => qr[/func/] ); + $mech->links_ok( \@links, 'Check all links for function links' ); }; subtest 'GET /index/variable' => sub { From 95e4e87c26e7e7c47c6b5da024da18c8ee19a52b Mon Sep 17 00:00:00 2001 From: kobaken Date: Thu, 4 Jan 2024 10:53:29 +0900 Subject: [PATCH 2/2] =?UTF-8?q?=E5=A4=89=E6=95=B0=E4=B8=80=E8=A6=A7?= =?UTF-8?q?=E3=82=82=E3=80=81=E3=83=AA=E3=83=B3=E3=82=AF=E5=88=87=E3=82=8C?= =?UTF-8?q?=E3=81=8C=E3=81=AA=E3=81=84=E3=81=8B=E3=83=86=E3=82=B9=E3=83=88?= =?UTF-8?q?=E3=82=92=E3=81=99=E3=82=8B?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- t/endpoints.t | 3 +++ 1 file changed, 3 insertions(+) diff --git a/t/endpoints.t b/t/endpoints.t index b953937..261463b 100644 --- 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 {