We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 23be70e commit a06b362Copy full SHA for a06b362
xt/rakudoc-l.rakutest
@@ -85,6 +85,13 @@ sub is-valid-link($links) {
85
my $ok = ?($path.IO.d or ($path ~ '.rakudoc').IO.e);
86
ok $ok, "$link exists (primary)";
87
%bad-links{$link}++ unless $ok;
88
+ } else {
89
+ my @valid-protocols = <http https irc>;
90
+ next if $link.starts-with: '#'; # don't check in-page anchors
91
+ next if $link.starts-with(any(@valid-protocols) ~ '://');
92
+
93
+ %bad-links{$link}++;
94
+ flunk("relative link or bad protocol: $link");
95
}
96
97
0 commit comments