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 Zlint_test_init_06::Zlint_test_init_06()
17 Zlint_test_init_06::~Zlint_test_init_06()
21 Zlint_code Zlint_test_init_06::init(Zlint *z)
24 Z_APDU *apdu = z->create_Z_PDU(Z_APDU_initRequest);
25 Z_InitRequest *init = apdu->u.initRequest;
27 z->msg_check_for("for init options");
29 /* set all options.. see what target really supports .. */
30 ODR_MASK_SET(init->protocolVersion, Z_ProtocolVersion_3);
31 ODR_MASK_ZERO(init->options);
33 for (i = 0; i <= 24; i++)
34 ODR_MASK_SET(init->options, i);
36 int r = z->send_Z_PDU(apdu, &len);
39 z->msg_check_fail("unable to send init request");
45 Zlint_code Zlint_test_init_06::recv_gdu(Zlint *z, Z_GDU *gdu)
47 if (gdu->which == Z_GDU_Z3950 &&
48 gdu->u.z3950 && gdu->u.z3950->which == Z_APDU_initResponse)
50 Z_InitResponse *init = gdu->u.z3950->u.initResponse;
57 for (i = 0; i <= 24; i++)
58 if (ODR_MASK_GET(init->options, i))
64 z->msg_check_fail("suspicuously few option bits set");
69 z->msg_check_fail("suspicuously many option bits set");
76 z->msg_check_fail("did not receive init response as expected");
84 * c-file-style: "Stroustrup"
85 * indent-tabs-mode: nil
87 * vim: shiftwidth=4 tabstop=8 expandtab