From f23a7bfdd703d43d4bff99219f700fa3f0c6dacf Mon Sep 17 00:00:00 2001
From: Wilson Snyder <wsnyder@wsnyder.org>
Date: Mon, 23 Dec 2019 17:34:43 -0500
Subject: [PATCH] Tests: Check for carriage returns

---
 test_regress/t/t_dist_tabs.pl | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/test_regress/t/t_dist_tabs.pl b/test_regress/t/t_dist_tabs.pl
index 272b45c8f..606921a22 100755
--- 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$/) {