38 lines
1.0 KiB
Factor
38 lines
1.0 KiB
Factor
! Copyright (C) 2014 Doug Coleman.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: assocs continuations forestdb.lib fry io.directories
|
|
io.files.temp kernel math.parser math.ranges sequences ;
|
|
IN: forestdb.utils
|
|
|
|
: test-db-0 ( -- path ) "0.forestdb.0" temp-file ;
|
|
: test-db-1 ( -- path ) "1.forestdb.0" temp-file ;
|
|
|
|
: with-forestdb-tester ( path quot -- )
|
|
'[
|
|
"default" _ with-kvs
|
|
] with-forestdb ; inline
|
|
|
|
: delete-test-db-0 ( -- ) [ test-db-0 delete-file ] ignore-errors ;
|
|
: delete-test-db-1 ( -- ) [ test-db-1 delete-file ] ignore-errors ;
|
|
|
|
: make-kv-nth ( n -- key val )
|
|
number>string [ "key" prepend ] [ "val" prepend ] bi ;
|
|
|
|
: make-kv-n ( n -- seq )
|
|
[1,b] [ make-kv-nth ] { } map>assoc ;
|
|
|
|
: make-kv-range ( a b -- seq )
|
|
[a,b] [ make-kv-nth ] { } map>assoc ;
|
|
|
|
: set-kv-n ( n -- )
|
|
make-kv-n [ fdb-set-kv ] assoc-each ;
|
|
|
|
: del-kv-n ( n -- )
|
|
make-kv-n keys [ fdb-del-kv ] each ;
|
|
|
|
: set-kv-nth ( n -- )
|
|
make-kv-nth fdb-set-kv ;
|
|
|
|
: set-kv-range ( a b -- )
|
|
make-kv-range [ fdb-set-kv ] assoc-each ;
|