From: Adam Dickmeiss <adam@indexdata.dk>
Date: Thu, 3 Jun 2004 00:24:12 +0000 (+0000)
Subject: Proper test for forward
X-Git-Tag: ZEBRA.1.3.16~73
X-Git-Url: http://git.indexdata.com/?p=idzebra-moved-to-github.git;a=commitdiff_plain;h=97e5c7f8db1ea9f806bf4bca38dee837c32d2e6f

Proper test for forward
---

diff --git a/isamb/tstisamb.c b/isamb/tstisamb.c
index 66a2b2f..08ff71e 100644
--- a/isamb/tstisamb.c
+++ b/isamb/tstisamb.c
@@ -1,4 +1,4 @@
-/* $Id: tstisamb.c,v 1.5 2004-06-02 12:30:32 adam Exp $
+/* $Id: tstisamb.c,v 1.6 2004-06-03 00:24:12 adam Exp $
    Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002,2003,2004
    Index Data Aps
 
@@ -110,12 +110,12 @@ void tst_forward(ISAMB isb, int n)
     /* read the entries */
     pp = isamb_pp_open (isb, isamc_p);
     
-    for (i = 0; i<ri.max; i++)
+    for (i = 0; i<ri.max; i +=2 )
     {
 	int x = -1;
 	int xu = i;
 	isamb_pp_forward(pp, &x, &xu);
-	if (x != xu)
+	if (x != xu && xu != x+1)
 	{
 	    yaz_log(LOG_WARN, "isamb_pp_forward (1). Got %d (expected %d)",
 		    x, xu);
@@ -129,12 +129,12 @@ void tst_forward(ISAMB isb, int n)
     for (i = 0; i<ri.max; i += 100)
     {
 	int x = -1;
-	int xuntil = i;
-	isamb_pp_forward(pp, &x, &xuntil);
-	if (x > xuntil)
+	int xu = i;
+	isamb_pp_forward(pp, &x, &xu);
+	if (x != xu && xu != x+1)
 	{
 	    yaz_log(LOG_WARN, "isamb_pp_forward (2). Got %d (expected %d)",
-		    x, xuntil);
+		    x, xu);
 	    exit(4);
 	}
 	ri.no++;