Changeset 639
- Timestamp:
- 11/16/07 07:44:30 (1 year ago)
- Files:
-
- trunk/server/t/cas.t (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/server/t/cas.t
r637 r639 2 2 3 3 use strict; 4 use Test::More tests => 9;4 use Test::More tests => 10; 5 5 use FindBin qw($Bin); 6 6 use lib "$Bin/lib"; … … 48 48 is(scalar <$sock>, "NOT_FOUND\r\n", "cas failed, foo does not exist"); 49 49 50 # cas empty 51 print $sock "cas foo 0 0 6 \r\nbarva2\r\n"; 52 is(scalar <$sock>, "ERROR\r\n", "cas empty, throw error"); 53
