Changeset 767 for branches/binary/server/t/binary.t

Timestamp:

03/27/08 04:31:35 (20 months ago)

Author:

dormando

Message:

Fix incr/decr perl tests. Next up is CAS, which are no longer separate commands.

Files:

• branches/binary/server/t/binary.t (modified) (2 diffs)

branches/binary/server/t/binary.t

@@ -366 +366 @@
         my $init_lo = int($init % 2 ** 32);
 
-        return $self->_doCmd($cmd, $key, '', pack(::INCRDECR_PKT_FMT, $amt_hi, $amt_lo, $init_hi, $init_lo, $exp));
+        my $data = $self->_doCmd($cmd, $key, '', pack(::INCRDECR_PKT_FMT, $amt_hi, $amt_lo, $init_hi, $init_lo, $exp));
+        my $header = substr $data, 0, 12, '';
+        my ($resp_hi, $resp_lo) = unpack "NN", $header;
+        my $resp = ($resp_hi * 2 ** 32) + $resp_lo;
+    return $resp;
 }
 
@@ -386 +390 @@
         $exp = 0 unless defined $exp;
 
-        return $self->__incrdecr(::CMD_INCR, $key, 0 - $amt, $init, $exp);
+        return $self->__incrdecr(::CMD_DECR, $key, $amt, $init, $exp);
 }