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: 
  (cl:in-package #:cl-user)
  
  (defpackage #:multihash-test
    (:use #:cl
          #:multihash.definitions
          #:multihash.core
          #:multihash.hashing
          #:multihash.octets
          #:multihash)
    (:import-from #:5am
                  #:def-suite
                  #:fail
                  #:in-suite
                  #:is
                  #:run!
                  #:is-false
                  #:signals
                  #:test)
    (:shadowing-import-from #:ironclad
                            #:byte-array-to-hex-string
                            #:hex-string-to-byte-array)
    (:export #:run-all-tests))
  
  (in-package #:multihash-test)
  
  (def-suite cl-multihash)
  
  