@@ -288,7 +288,7 @@

                     (asdf:system-relative-pathname

                      :co.fwoar.cl-git/tests

                      (format nil "tests/sample-git-objects/blob-~a-fixture"

-                             (subseq ref 0 7))))

+                             (subseq ref 0 8))))

                   (expectations

                     (alexandria:read-file-into-byte-vector expectations-file)))

              (5am:is

@@ -24,7 +24,7 @@

       (print-unreadable-object (o s :type t :identity t)

         (format s "(~a: ~a)"

                 (te-name o)

-                (subseq (hash o) 0 7)))))

+                (subseq (hash o) 0 8)))))

 (defun parse-tree-entry (data)

   (values-list (partition 0 data :with-offset 20)))