anchor.diff:    (is (babel:octets-to-string (cl-ipfs-api:object-data *test-file-hash*))
         (ipfs-command '("object" "data") `(,*test-file-hash*) nil)))
   
  -;(subtest "object links")
  +(subtest "object links"
  +  (is-api-cli '("object" "links") `(,*test-dir-hash*) '(("encoding" "json")))
  +  (is-api-cli '("object" "links") `(,*test-dir-hash*) '(("encoding" "text"))))
   
   (subtest "object get"
     (is-api-cli '("object" "get") `(,*test-file-hash*) '(("encoding" "json"))))
  
positive.code:   (is-api-cli '("dns") '("ipfs.io") '(("encoding" "text"))))
  
  (subtest "pin add"
    (is-api-cli '("pin" "add") `(,*test-file-hash*) '(("encoding" "json")))
    (is-api-cli '("pin" "add") `(,*test-file-hash*) '(("encoding" "text"))))
  
  (subtest "pin rm"
    (is-api-cli '("pin" "rm") `(,*test-file-hash*) '(("encoding" "json")))
    (is-api-cli '("pin" "rm") `(,*test-file-hash*) '(("encoding" "text"))))
  
  (subtest "pin ls"
    (cl-ipfs-api:pin-add *test-file-hash*)
    (is-api-cli '("pin" "ls") nil '(("encoding" "json")))
    (is-api-cli '("pin" "ls") nil '(("encoding" "text"))))
  
  ;(subtest "repo gc")
  
  
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")))
  