all repos — min @ 8fb68f168c392593a1626f9f0cbe7f20d1094c76

A small but practical concatenative programming language.

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
 
'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