anchor.diff:    (is (babel:octets-to-string (cl-ipfs-api:block-get *test-file-hash*))
         (ipfs-command '("block" "get") `(,*test-file-hash*) nil)))
   
  -;(subtest "block put")
  +(subtest "block put"
  +  (is-api-cli '("block" "put") `(,*test-file-path*) '(("encoding" "json")))
  +  (is-api-cli '("block" "put") `(,*test-file-path*) '(("encoding" "text"))))
   
   (subtest "object new"
     (is (cl-ipfs-api:object-new nil :encoding "json")
  
positive.code: ;(subtest "ping")
  
  (subtest "config"
    (is-api-cli '("config") '("Datastore.Path") '(("encoding" "json")))
    (is-api-cli '("config") '("Datastore.Path") '(("encoding" "text"))))
  
  (subtest "config show"
    (is (babel:octets-to-string (cl-ipfs-api:config-show))
  
negative.code:       (cadr (split-sequence:split-sequence #\Space (ipfs-command '("add") `(,*test-file-path*) nil)))))
  
  (subtest "cat"
    (is (babel:octets-to-string (cl-ipfs-api:cat *test-file-hash*))
        (ipfs-command '("cat") `(,*test-file-hash*) nil)))
  
  (subtest "ls"
    (is-api-cli '("ls") `(,*test-dir-hash*) '(("encoding" "json")))
    (is-api-cli '("ls") `(,*test-dir-hash*) '(("encoding" "text"))))
  
  (subtest "refs"
    (is (reverse (car (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"))
        (ipfs-command '("refs" "local") nil nil)))
  
  (subtest "block stat"
    (is-api-cli '("block" "stat") `(,*test-file-hash*) '(("encoding" "json")))
  