Changeset 765

Timestamp:

03/25/08 08:25:18 (20 months ago)

Author:

dormando

Message:

More perl binary protocol tests passing now. Still a lot broken.

Files:

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

branches/binary/server/t/binary.t

@@ -25 +25 @@
 use constant CMD_CAS     => 51;
 
-# Flags, expiration
-use constant SET_PKT_FMT => "NN";
+# CAS, Flags, expiration
+use constant SET_PKT_FMT => "NNNN";
 
 # Flags, expiration, id
@@ -40 +40 @@
 use constant RES_MAGIC_BYTE => 0x80;
 
-use constant PKT_FMT => "CCSCxxxNN";
+use constant PKT_FMT => "CCnCxxxNN";
 
 #min recv packet size
@@ -330 +330 @@
         my $self = shift;
         my $rv = shift; # currently contains 4 bytes of 'flag' followed by value
+    my $cas  = substr $rv, 0, 8, ''; # $cas contains CAS value, $rv has f, v.
         my $flag = substr $rv, 0, 4, ''; # Now $flag contains flags, $rv contains value
         return unpack("N", $flag), $rv;
@@ -345 +346 @@
         my ($cmd, $key, $exp, $flags, $val) = @_;
 
-        return $self->_doCmd($cmd, $key, $val, pack(::SET_PKT_FMT, $flags, $exp));
+        return $self->_doCmd($cmd, $key, $val, pack(::SET_PKT_FMT, 0, 0, $flags, $exp));
 }