> > Got it. Didn't notice two different sockets at first, yes, nothing > enforces the order of two commands. > > Then this piece: > > print $sock "cas foo1 0 0 6 $result[0]\r\nbarva2\r\n"; > print $sock2 "cas foo1 0 0 5 $result2[0]\r\napple\r\n"; > > is(scalar <$sock>, "STORED\r\n", "cas success, set foo1"); > is(scalar <$sock2>, "EXISTS\r\n", "cas failed for foo1"); > > should probably be > > print $sock "cas foo1 0 0 6 $result[0]\r\nbarva2\r\n"; > print $sock2 "cas foo1 0 0 5 $result2[0]\r\napple\r\n"; > > my $res1 = scalar <$sock>; > my $res2 = scalar <$sock2>; > ok(($res1 eq "STORED\r\n" and $res2 eq "EXISTS\r\n") or > ($res1 eq "EXISTS\r\n" and $res2 eq "STORED\r\n")); > > >
pushed a version of this to r665. reflection tells me it's still testing something useful. -Dormando
