all repos — min @ f5c37b9b51e9a4784537995f0a9ac1ccbb73d02a

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
'min-test require :test
;;;

"dstore" test.describe

  ("dstore.json" dstore.init type "dict:datastore" ==) test.assert
  
  (
    "dstore.json" dstore.read :ds
    ds "tests"
    {}
      1 "test1" dict.set
      2 "test2" dict.set
    dstore.post dstore.write
    "tests" (stack.pop true) dstore.query size 1 ==
  ) test.assert
  
  (
    "dstore.json" dstore.read :ds
    ds "tests/aaa"
    {}
      1 "test1" dict.set
      3 "test3" dict.set
    dstore.put dstore.write
    "tests" ("test1" dict.get 1 ==) dstore.query size 2 ==
  ) test.assert
  
  (
    "dstore.json" dstore.read :ds
    ds "tests/aaa" dstore.delete
    "tests" ("id" dict.get "aaa" ==) dstore.query size 0 ==
  ) test.assert
  
  "dstore.json" sys.rm

  test.report
  stack.clear