anchor.diff:    (is-api-cli '("ls") `(,*test-dir-hash*) '(("encoding" "text"))))
   
   (subtest "refs"
  -  (is (reverse (car (cl-ipfs-api:refs *test-dir-hash* :encoding "json")))
  +  (is (cl-ipfs-api:refs *test-dir-hash* :encoding "json")
         (ipfs-command '("refs") `(,*test-dir-hash*) '(("encoding" "json")))))
   
   (subtest "refs local"
  -  (is (babel:octets-to-string (cl-ipfs-api:refs-local :encoding "text"))
  +  (is (cl-ipfs-api:refs-local :encoding "text")
         (ipfs-command '("refs" "local") nil nil)))
   
   (subtest "block stat"
  
positive.code:       (ipfs-command '("object" "new") nil '(("encoding" "text")))))
  
  (subtest "object data"
    (is (babel:octets-to-string (cl-ipfs-api:object-data *test-file-hash*))
        (ipfs-command '("object" "data") `(,*test-file-hash*) nil)))
  
  (subtest "object links"
  
negative.code:   (is-api-cli '("config") '("Datastore.Path" nil) '(("encoding" "text"))))
  
  (subtest "config show"
    (is (cl-ipfs-api:config-show)
        (ipfs-command '("config" "show") nil nil)))
  
  ;(subtest "config replace")
  