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: 	     (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 args
    (is-expand (cl-ipfs-api::define-command :name ("test" "command") :args ((:name "data" :required nil)) :kwargs ("encoding") :description "test description")
  	     (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)))
    ;; 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)
  