tests/dstore.min
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 |
'min-test require :test
;;;
"dstore" *test/describe
("dstore.json" dsinit type "dict:datastore" ==) *test/assert
(
"dstore.json" dsread :ds
ds "tests"
{}
1 %test1
2 %test2
dspost dswrite
"tests" (pop true) dsquery size 1 ==
) *test/assert
(
"dstore.json" dsread :ds
ds "tests/aaa"
{}
1 %test1
3 %test3
dsput dswrite
"tests" (/test1 1 ==) dsquery size 2 ==
) *test/assert
(
"dstore.json" dsread :ds
ds "tests/aaa" dsdelete
"tests" (/id "aaa" ==) dsquery size 0 ==
) *test/assert
"dstore.json" rm
*test/report
clear-stack
|