From ee7a2a107444b3b1088bd73d082a501ed7fa725a Mon Sep 17 00:00:00 2001
Message-Id: <ee7a2a107444b3b1088bd73d082a501ed7fa725a.1715598658.git.mdw@distorted.org.uk>
From: Mark Wooding <mdw@chiark.greenend.org.uk>
Date: Wed, 19 Jun 2013 19:58:17 +0100
Subject: [PATCH] server/tests.at: Awk string indexing starts at 1.
Organization: Straylight/Edgeware

From: Mark Wooding <mdw@distorted.org.uk>

Mawk returns a string of length n - 1 if you ask for `substr(s, 0, n)'.
This causes mismatches in the filter which is supposed to remove
spurious warnings, resulting in spurious test failures.
---
 server/tests.at | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/server/tests.at b/server/tests.at
index 1171fa22..510fd4d5 100644
--- a/server/tests.at
+++ b/server/tests.at
@@ -152,7 +152,7 @@ $3
 	{
 	  for (i = 0; i < npat; i++) {
 	    n = length(pat[[i]]);
-	    if (substr($[]0, 0, n) == pat[[i]])
+	    if (substr($[]0, 1, n) == pat[[i]])
 	      next;
 	  }
 	  print $[]0;
-- 
[mdw]