+
EDITURL
diff --git a/xt/perl-nbsp.t b/xt/perl-nbsp.t
index a3f65e24a..a9c3bbcd6 100755
--- a/xt/perl-nbsp.t
+++ b/xt/perl-nbsp.t
@@ -12,6 +12,7 @@ plan +@files;
for @files.sort -> $file {
my $ok = True;
my $row = 0;
+ my @bad;
for $file.IO.slurp.lines -> $line {
$row++;
if $line ~~ / ^ \s+ / {
@@ -20,13 +21,14 @@ for @files.sort -> $file {
for $line ~~ m:g/ 'Perl' $=(\s+) \d / -> $match {
my $spaces = ~$match;
if $spaces.chars != 1 || $spaces.uniname ne "NO-BREAK SPACE" {
- $ok = False; last;
+ $ok = False;
+ @bad.push: $row;
}
}
}
my $error = $file;
if !$ok {
- $error ~= " (line $row)";
+ $error ~= " (line{@bad>1 ?? "s" !! ""} {@bad.join: ', '})";
}
ok $ok, "$error: Perl followed by a version should have a single non-breaking space." ;
}
diff --git a/xt/trailing-whitespace.t b/xt/trailing-whitespace.t
index 94c963aac..ea16cd0bf 100755
--- a/xt/trailing-whitespace.t
+++ b/xt/trailing-whitespace.t
@@ -11,6 +11,7 @@ my @files = Test-Files.files\
.grep({! $_.contains: 'util/trigger-rebuild.txt'})\
.grep({! $_.contains: 'jquery'})\
.grep({! $_.ends-with: '.png'})\
+ .grep({! $_.ends-with: '.svg'})\
.grep({! $_.ends-with: '.ico'});
plan +@files;
diff --git a/xt/words.pws b/xt/words.pws
index 249b6863b..197d202a9 100644
--- a/xt/words.pws
+++ b/xt/words.pws
@@ -415,6 +415,7 @@ getsockname
getsockopt
getuid
gid
+gists
github
github's
gitlab
@@ -1132,6 +1133,7 @@ superclass
superclasses
superglobals
superset
+svg
sym
symlink
symlinked