Skip to content

Commit 1a5a516

Browse files
committed
Adds new rule to exclude some lines
Rules for finding URLs were heuristic, and this file had a couple of examples that put URLs in some markup. This closes #4053, eliminating also skip code. All tests pass now, including that file
1 parent a24a775 commit 1a5a516

File tree

1 file changed

+3
-4
lines changed

1 file changed

+3
-4
lines changed

xt/links-not-links.t

Lines changed: 3 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -26,15 +26,14 @@ my @files = Test-Files.pods.grep(* ~~ /Type | Language/);
2626
plan +@files;
2727

2828
for @files -> $file {
29-
if $file.ends-with('/Language/pod.pod6') {
30-
skip('bug #4053');
31-
next;
32-
}
3329
my @lines;
3430
my Int $line-no = 1;
31+
# say $file.IO.lines.grep( * ~~ / https?\: /)
32+
# .grep( * !~~ /review\:\s+ | "wget" | ^\# | \#\s+OUTPUT / ).raku;
3533
my @links = $file.IO.lines.grep( * ~~ / https?\: /)
3634
.grep( * !~~ /review\:\s+/) # eliminate review lines from IRC logs
3735
.grep( * !~~ /wget/)
36+
.grep( * !~~ /disclaimer\.txt/)
3837
.grep( * !~~ /^\#/)
3938
.grep( * !~~ /\#\s+OUTPUT/); # eliminates output lines
4039
my @links-not-links;

0 commit comments

Comments
 (0)