Skip to content

Commit

Permalink
Tests are nondeterministic. Awaiting replacements.
Browse files Browse the repository at this point in the history
git-svn-id: http://code.sixapart.com/svn/memcached/trunk/server@659 b0b603af-a30f-0410-a34e-baf09ae79d0b
  • Loading branch information
dormando committed Dec 6, 2007
1 parent 0140095 commit 3d7ebcc
Showing 1 changed file with 1 addition and 16 deletions.
17 changes: 1 addition & 16 deletions t/cas.t
100644 → 100755
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
#!/usr/bin/perl

use strict;
use Test::More tests => 31;
use Test::More tests => 27;
use FindBin qw($Bin);
use lib "$Bin/lib";
use MemcachedTest;
Expand Down Expand Up @@ -95,18 +95,3 @@ is(scalar <$sock>, "END\r\n","validating foo1,foo2 gets is over - END");
# validate foo1 != foo2
ok($foo1_cas != $foo2_cas, "foo1 != foo2 multi-gets success");

### simulate race condition with cas

# gets foo1 - success
@result = mem_gets($sock, "foo1");
ok($result[0] != "", "sock - gets foo1 is not empty");

# gets foo2 - success
@result2 = mem_gets($sock2, "foo1");
ok($result2[0] != "","sock2 - gets foo1 is not empty");

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");

0 comments on commit 3d7ebcc

Please sign in to comment.