test/memcache.nnd in sekka-0.9.5 vs test/memcache.nnd in sekka-0.9.6
- old
+ new
@@ -38,16 +38,27 @@
(load "./test/common.nnd")
(define dbtype 'memcache)
(define userid "temp")
(define cachesv (Kvs.new dbtype))
-(cachesv.open "localhost:11211")
(test-start "memcached I/F")
;;===================================================================
;;-------------------------------------------------------------------
(test-section "memcached access")
+
+(test* "db connect NG and Exception"
+ (test-error MemCache::MemCacheError)
+ (let1 sv (Kvs.new dbtype)
+ (sv.open "localhost:11111")
+ (sv.put! "temp::1" "one")))
+
+(test* "db connect OK"
+ "one"
+ (begin
+ (cachesv.open "localhost:11211")
+ (cachesv.put! "temp::1" "one")))
(test* "db store 1"
"one"
(cachesv.put! "temp::1" "one"))