From 3d7ebcc288dc37c5fe56e21721752358d385070e Mon Sep 17 00:00:00 2001 From: dormando Date: Thu, 6 Dec 2007 09:12:49 +0000 Subject: [PATCH] Tests are nondeterministic. Awaiting replacements. git-svn-id: http://code.sixapart.com/svn/memcached/trunk/server@659 b0b603af-a30f-0410-a34e-baf09ae79d0b --- t/cas.t | 17 +---------------- 1 file changed, 1 insertion(+), 16 deletions(-) mode change 100644 => 100755 t/cas.t diff --git a/t/cas.t b/t/cas.t old mode 100644 new mode 100755 index 058a211556..750df41032 --- a/t/cas.t +++ b/t/cas.t @@ -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; @@ -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");