Changeset 659

Show
Ignore:
Timestamp:
12/06/07 09:12:49 (1 year ago)
Author:
dormando
Message:

Tests are nondeterministic. Awaiting replacements.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/server/t/cas.t

    • Property svn:executable set to *
    r655 r659  
    22 
    33use strict; 
    4 use Test::More tests => 31; 
     4use Test::More tests => 27; 
    55use FindBin qw($Bin); 
    66use lib "$Bin/lib"; 
    …… 
    9696ok($foo1_cas != $foo2_cas, "foo1 != foo2 multi-gets success"); 
    9797 
    98 ### simulate race condition with cas 
    99  
    100 # gets foo1 - success 
    101 @result = mem_gets($sock, "foo1"); 
    102 ok($result[0] != "", "sock - gets foo1 is not empty"); 
    103  
    104 # gets foo2 - success 
    105 @result2 = mem_gets($sock2, "foo1"); 
    106 ok($result2[0] != "","sock2 - gets foo1 is not empty"); 
    107  
    108 print $sock "cas foo1 0 0 6 $result[0]\r\nbarva2\r\n"; 
    109 print $sock2 "cas foo1 0 0 5 $result2[0]\r\napple\r\n"; 
    110  
    111 is(scalar <$sock>, "STORED\r\n", "cas success, set foo1"); 
    112 is(scalar <$sock2>, "EXISTS\r\n", "cas failed for foo1");