Changeset 637
- Timestamp:
- 11/16/07 07:43:45 (1 year ago)
- Files:
-
- trunk/server/t/cas.t (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/server/t/cas.t
r636 r637 2 2 3 3 use strict; 4 use Test::More tests => 8;4 use Test::More tests => 9; 5 5 use FindBin qw($Bin); 6 6 use lib "$Bin/lib"; … … 36 36 is(scalar <$sock>, "STORED\r\n", "cas success, set foo"); 37 37 38 # cas failure (reusing the same key) 39 print $sock "cas foo 0 0 6 $result[0]\r\nbarva2\r\n"; 40 is(scalar <$sock>, "EXISTS\r\n", "reusing a CAS ID"); 41 38 42 # delete foo 39 43 print $sock "delete foo\r\n";
