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"))