Tests: Check for carriage returns

2019-12-23 17:34:43 -05:00 · 2019-12-23 17:34:43 -05:00 · f23a7bfdd7
parent 9b998cf6b3
commit f23a7bfdd7
1 changed files with 4 additions and 0 deletions
--- a/test_regress/t/t_dist_tabs.pl
+++ b/test_regress/t/t_dist_tabs.pl
@ -61,6 +61,10 @@ if (!-r "$root/.git") {
            }
            elsif ($line =~ m!^\+(.*)!) {
                ++$lineno;
+                if ($line =~ /\r/) {
+                    $summary = "File modification adds carriage return (remove them):" if !$summary;
+                    $warns{$file} = "File modification adds carriage return (remove them): $file:$lineno";
+                }
                my $len = length($1);
                if ($len >= 100
                    && $file !~ /\.out$/) {