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: 	     (defun test-command (data &key encoding cl-ipfs-api::want-stream)
  	       "test description"
  	       (cl-ipfs-api:request-api "/test/command" data (list (cons "encoding" encoding)) cl-ipfs-api::want-stream nil)))
    ;; variadic/optional args
    (is-expand (cl-ipfs-api::define-command :name ("test" "command") :args ((:name "data" :required nil)) :kwargs ("encoding") :description "test description")
  	     (defun test-command (cl-ipfs-api::args &key encoding cl-ipfs-api::want-stream)
  	       "test description"
  	       (cl-ipfs-api:request-api "/test/command" cl-ipfs-api::args (list (cons "encoding" encoding)) cl-ipfs-api::want-stream nil)))
    ;; stream output
    (is-expand (cl-ipfs-api::define-command :name ("test" "command") :args ((:name "data" :required t)) :kwargs () :description "test description" :output "stream")
  	     (defun test-command (data &key cl-ipfs-api::want-stream)
  
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")))
  