1 /* This file is part of the yazpp toolkit.
2 * Copyright (C) 1998-2012 Index Data and Mike Taylor
3 * See the file LICENSE for details.
13 #define REFID_BUF1 "zlint\000check1"
16 Zlint_test_init_04::Zlint_test_init_04()
20 Zlint_test_init_04::~Zlint_test_init_04()
24 Zlint_code Zlint_test_init_04::init(Zlint *z)
27 Z_APDU *apdu = z->create_Z_PDU(Z_APDU_initRequest);
28 Z_InitRequest *init = apdu->u.initRequest;
30 z->msg_check_for("for referenceID for init");
32 ODR_MASK_SET(init->protocolVersion, Z_ProtocolVersion_3);
33 init->referenceId = z->mk_refid(REFID_BUF1, REFID_LEN1);
35 int r = z->send_Z_PDU(apdu, &len);
38 z->msg_check_fail("unable to send init request");
44 Zlint_code Zlint_test_init_04::recv_gdu(Zlint *z, Z_GDU *gdu)
46 if (gdu->which == Z_GDU_Z3950 &&
47 gdu->u.z3950 && gdu->u.z3950->which == Z_APDU_initResponse)
49 Z_InitResponse *init = gdu->u.z3950->u.initResponse;
51 if (!init->referenceId)
52 z->msg_check_fail("missing referenceID from init response");
53 else if (init->referenceId->len != REFID_LEN1
54 || memcmp(init->referenceId->buf, REFID_BUF1, REFID_LEN1))
55 z->msg_check_fail("reference ID does not match");
59 z->msg_check_fail("did not receive init response as expected");
66 * c-file-style: "Stroustrup"
67 * indent-tabs-mode: nil
69 * vim: shiftwidth=4 tabstop=8 expandtab