   (:use clj-message-digest.core)
   (:require [clojure.java.io :as io])
   (:require [clojure.spec.alpha :as s])
+  (:require [clojure.spec.test.alpha :as stest])
   (:use clj-git.util)
   (:use clj-git.repo)
   (:gen-class))

(s/def ::sha-1-prefix
  (s/and
    string?
    #(<= (count %) SHA-1-HEX-LENGTH)))

(defn decompress-zlib [data]
  (let [buffer (byte-array (alength data))

      (throw (Exception. 
               (str "Ambiguous object prefix '" hash-prefix "'")))
      :else (second (first matches)))))

(stest/instrument `complete-hash)

(defn read-object [hash-prefix]
  (let [hash-hex (complete-hash hash-prefix)
