anchor.diff:  
   (test multihash-object
     (loop for (digest obj result) in multihash-object-cases
  -        do (is (equal result (multihash obj :digest-name digest :output :base58)))))
  +        do (is (equal result (b58-string (multihash-object digest obj))))))
  
positive.code: 
  (test bad-hashes
    (loop for badhex in fail-multihashes
      do (is-false (multihash-p (hex-string-to-byte-array badhex)))))
  
  (test fail-to-encode
    (loop for (digest seq) in fail-encode
  
negative.code: 
  (in-suite cl-multihash)
  
  (defmethod asdf:perform ((o asdf:test-op) (c (eql (asdf:find-system :multihash-test))))
    (format t "Starting tests.~%")
    (run-all-tests)
    (format t "Tests finished.~%"))
  