#include <math.h>
#include <stdlib.h>
#include <ctype.h>
+
+#if HAVE_SYS_TIME_H
+#include <sys/time.h>
+#endif
#if HAVE_UNISTD_H
#include <unistd.h>
#endif
+#if HAVE_SYS_SELECT_H
+#include <sys/select.h>
+#endif
+#ifdef WIN32
+#include <windows.h>
+#endif
#include <yaz/log.h>
#include <yaz/backend.h>
static int parse_delay(struct delay *delayp, const char *value)
{
- delayp->d1 = atof(value);
- delayp->d2 = 0.0;
+ if (sscanf(value, "%lf:%lf", &delayp->d1, &delayp->d2) == 2)
+ ;
+ else if (sscanf(value, "%lf", &delayp->d1) == 1)
+ delayp->d2 = 0.0;
+ else
+ return -1;
return 0;
}
-static void do_delay(const struct delay *delayp)
+static void ztest_sleep(double d)
{
+#ifdef WIN32
+ Sleep( (DWORD) (d * 1000));
+#else
struct timeval tv;
-
- tv.tv_sec = floor(delayp->d1);
- tv.tv_usec = (delayp->d1 - floor(delayp->d1)) * 1000000;
+ tv.tv_sec = floor(d);
+ tv.tv_usec = (d - floor(d)) * 1000000;
select(0, 0, 0, 0, &tv);
+#endif
+}
+
+static void do_delay(const struct delay *delayp)
+{
+ double d = delayp->d1;
+
+ if (d > 0.0)
+ {
+ if (delayp->d2 > d)
+ d += (rand()) * (delayp->d2 - d) / RAND_MAX;
+ ztest_sleep(d);
+ }
}
int ztest_search(void *handle, bend_search_rr *rr)
new_set->db = xstrdup(db);
init_delay(&new_set->search_delay);
init_delay(&new_set->present_delay);
+ init_delay(&new_set->fetch_delay);
db_sep = strchr(db, '?');
if (db_sep)
const char *name = names[i];
const char *value = values[i];
if (!strcmp(name, "seed"))
- srandom(atoi(value));
+ srand(atoi(value));
else if (!strcmp(name, "search-delay"))
parse_delay(&new_set->search_delay, value);
else if (!strcmp(name, "present-delay"))
/* present request handler */
int ztest_present(void *handle, bend_present_rr *rr)
{
+ struct session_handle *sh = (struct session_handle*) handle;
+ struct result_set *set = get_set(sh, rr->setname);
+
+ if (!set)
+ {
+ rr->errcode = YAZ_BIB1_SPECIFIED_RESULT_SET_DOES_NOT_EXIST;
+ rr->errstring = odr_strdup(rr->stream, rr->setname);
+ return 0;
+ }
+ do_delay(&set->present_delay);
return 0;
}
r->errstring = odr_strdup(r->stream, r->setname);
return 0;
}
+ do_delay(&set->fetch_delay);
r->last_in_set = 0;
r->basename = set->db;
r->output_format = r->request_format;