git.fiddlerwoaroof.com
Browse code

bug: p-r-f-o doesn't exist, use packed-ref

Ed L authored on 17/11/2020 08:13:09
Showing 1 changed files
tests/git-objects.lisp
History View file @ 47b7b9a
... ... 
@@ -79,7 +79,7 @@
79 79
80 80 
 (fiveam:def-test pack-files-commit ()
81 81 
   (let* ((hash "7d7b56a6a64e090041f55293511f48aba6699f1a")
82 
-         (ref (fwoar.cl-git::packed-ref-for-object
82 
+         (ref (fwoar.cl-git::packed-ref
83 83 
                :fwoar.cl-git.git-objects.pack
84 84 
                hash))
85 85 
          (object (progn (fiveam:is (not (null ref)))
... ... 
@@ -114,7 +114,7 @@
114 114
115 115 
 (fiveam:def-test pack-files-tree ()
116 116 
   (let* ((hash "1da546ab4697b719efb62f11fd785d6ad3b226d2")
117 
-         (ref (fwoar.cl-git::packed-ref-for-object
117 
+         (ref (fwoar.cl-git::packed-ref
118 118 
                :fwoar.cl-git.git-objects.pack
119 119 
                hash))
120 120 
          (object (progn (fiveam:is (not (null ref)))
... ... 
@@ -134,7 +134,7 @@
134 134
135 135 
 (fiveam:def-test pack-files-blob ()
136 136 
   (let* ((hash "4b5fa63702dd96796042e92787f464e28f09f17d")
137 
-         (ref (fwoar.cl-git::packed-ref-for-object
137 
+         (ref (fwoar.cl-git::packed-ref
138 138 
                :fwoar.cl-git.git-objects.pack
139 139 
                hash))
140 140 
          (object (progn (fiveam:is (not (null ref)))
... ... 
@@ -146,7 +146,7 @@
146 146 
 "
147 147 
                    (babel:octets-to-string
148 148 
                     (fwoar.cl-git::extract-object
149 
-                     (fwoar.cl-git::packed-ref-for-object
149 
+                     (fwoar.cl-git::packed-ref
150 150 
                       :fwoar.cl-git.git-objects.pack
151 151 
                       "4b5fa63702dd96796042e92787f464e28f09f17d"))
152 152 
                     :encoding :utf-8)))))