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

[tripe] / server / tests.at

diff --git a/server/tests.at b/server/tests.at
index 1171fa2..510fd4d 100644 (file)
--- 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;