From: Mark Wooding <mdw@distorted.org.uk>
Date: Wed, 19 Jun 2013 18:58:17 +0000 (+0100)
Subject: server/tests.at: Awk string indexing starts at 1.
X-Git-Tag: 1.0.0pre14~15
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/tripe/commitdiff_plain/ee7a2a107444b3b1088bd73d082a501ed7fa725a

server/tests.at: Awk string indexing starts at 1.

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.
---

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;