From 52f16b3e0756c7cdf618a28dadb24eb5e5f58d7b Mon Sep 17 00:00:00 2001 From: Trond Norbye Date: Wed, 2 Sep 2009 23:23:57 +0200 Subject: binary set with cas does not return the new cas id (dustin) I updated the perl test to check for this when it's doing CAS stuff. Found some bugs in the perl test that took too long to fix. --- testapp.c | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'testapp.c') diff --git a/testapp.c b/testapp.c index d3f068c..fe6e050 100644 --- a/testapp.c +++ b/testapp.c @@ -892,6 +892,17 @@ static enum test_return test_binary_set_impl(const char *key, uint8_t cmd) { return test_binary_noop(); } + send.request.message.header.request.cas = receive.response.message.header.response.cas; + safe_send(send.bytes, len, false); + if (cmd == PROTOCOL_BINARY_CMD_SET) { + safe_recv_packet(receive.bytes, sizeof(receive.bytes)); + validate_response_header(&receive.response, cmd, + PROTOCOL_BINARY_RESPONSE_SUCCESS); + assert(receive.response.message.header.response.cas != send.request.message.header.request.cas); + } else { + return test_binary_noop(); + } + return TEST_PASS; } -- cgit v1.2.1