(defpackage :fwoar.cl-git.git-objects
  (:use :cl )
  (:export ))
(in-package :fwoar.cl-git.git-objects)

(defparameter *fake-repo* :fwoar.cl-git.git-objects)
(fiveam:def-suite :fwoar.cl-git.git-objects
  :description "testing branch resolution"
  :in :fwoar.cl-git)
(fiveam:in-suite :fwoar.cl-git.git-objects)

(defclass fake-ref (fwoar.cl-git::git-ref)
  ())
(defun fake-ref (repo hash)
  (fwoar.lisputils:new 'fake-ref repo hash))

(defmethod fwoar.cl-git::ref ((repo (eql *fake-repo*)) hash)
  (fake-ref repo hash))


(fiveam:def-test basic-commit ()
  (let ((fwoar.cl-git::*git-repository* *fake-repo*)
        (object (fwoar.cl-git::extract-loose-object
                 nil
                 (asdf:system-relative-pathname
                  :co.fwoar.cl-git
                  "tests/sample-git-objects/hello-world-commit.git-obj")
                 (make-instance 'fake-ref :hash "the-hash"))))
    (5am:is (typep object 'fwoar.cl-git::git-commit))
    (5am:is (equal "hello, git!
"
                   (fwoar.cl-git:component :message object)))
    (5am:is (equal ()
                   (fwoar.cl-git:component :parents object)))
    (5am:is (equal "L Edgley <foo@bar.com> 1605513585 -0800"
                   (fwoar.cl-git:component :author object)))
    (5am:is (equal "Ed L <el-github@elangley.org> 1605513585 -0800"
                   (fwoar.cl-git:component :committer object)))
    (5am:is (equal ()
                   (fwoar.cl-git:component :parents object)))
    (5am:is (equal "1da546ab4697b719efb62f11fd785d6ad3b226d2"
                   (fwoar.cl-git::ref-hash (fwoar.cl-git:component :tree object))))
    (5am:is (equal *fake-repo*
                   (fwoar.cl-git::ref-repo (fwoar.cl-git:component :tree object))))
    (5am:is (equal '(("author" "L Edgley <foo@bar.com> 1605513585 -0800")
                     ("committer" "Ed L <el-github@elangley.org> 1605513585 -0800")
                     ("tree" "1da546ab4697b719efb62f11fd785d6ad3b226d2"))
                   (coerce (sort (copy-seq (fwoar.cl-git::metadata object))
                                 'string-lessp
                                 :key 'car)
                           'list)))))

(fiveam:def-test basic-tree ()
  (let ((object (fwoar.cl-git::extract-loose-object
                 nil
                 (asdf:system-relative-pathname
                  :co.fwoar.cl-git
                  "tests/sample-git-objects/hello-world-tree.git-obj")
                 (make-instance 'fake-ref :hash "the-hash"))))
    (5am:is (typep object 'fwoar.cl-git::git-tree))
    (let* ((entries (fwoar.cl-git::entries object))
           (entry (progn (5am:is (= (length entries) 1))
                         (car entries))))
      (5am:is (equal "4b5fa63702dd96796042e92787f464e28f09f17d"
                     (fwoar.cl-git:component :hash entry)))
      (5am:is (equal "a"
                     (fwoar.cl-git:component :name entry)))
      (5am:is (equal "100644"
                     (fwoar.cl-git:component :mode entry))))))

(defparameter *fake-repo* :fwoar.cl-git.git-objects.pack)
(defmethod fwoar.cl-git::ref ((repo (eql *fake-repo*)) hash)
  (fake-ref repo hash))
(defmethod fwoar.cl-git::pack-files ((repo (eql *fake-repo*)))
  (list
   (fwoar.cl-git::pack (asdf:system-relative-pathname
                        :co.fwoar.cl-git
                        "tests/sample-git-objects/hello-world-pack.idx")
                       (asdf:system-relative-pathname
                        :co.fwoar.cl-git
                        "tests/sample-git-objects/hello-world-pack.pack")
                       repo)))

(fiveam:def-test pack-files-commit ()
  (let* ((hash "7d7b56a6a64e090041f55293511f48aba6699f1a")
         (ref (fwoar.cl-git::packed-ref
               :fwoar.cl-git.git-objects.pack
               hash))
         (object (progn (fiveam:is (not (null ref)))
                        (fiveam:is (equal hash (fwoar.cl-git::ref-hash ref)))
                        (fiveam:is (equal *fake-repo* (fwoar.cl-git::ref-repo ref)))
                        (fwoar.cl-git::extract-object ref))))

    (5am:is (typep object 'fwoar.cl-git::git-commit))
    (5am:is (equal "hello, git!
"
                   (fwoar.cl-git:component :message object)))
    (5am:is (equal ()
                   (fwoar.cl-git:component :parents object)))
    (5am:is (equal "L Edgley <foo@bar.com> 1605513585 -0800"
                   (fwoar.cl-git:component :author object)))
    (5am:is (equal "Ed L <el-github@elangley.org> 1605513585 -0800"
                   (fwoar.cl-git:component :committer object)))
    (5am:is (equal ()
                   (fwoar.cl-git:component :parents object)))
    (let ((fwoar.cl-git::*git-repository* *fake-repo*))
      (5am:is (equal "1da546ab4697b719efb62f11fd785d6ad3b226d2"
                     (fwoar.cl-git::ref-hash (fwoar.cl-git:component :tree object))))
      (5am:is (equal *fake-repo*
                     (fwoar.cl-git::ref-repo (fwoar.cl-git:component :tree object)))))
    (5am:is (equal '(("author" "L Edgley <foo@bar.com> 1605513585 -0800")
                     ("committer" "Ed L <el-github@elangley.org> 1605513585 -0800")
                     ("tree" "1da546ab4697b719efb62f11fd785d6ad3b226d2"))
                   (coerce (sort (copy-seq (fwoar.cl-git::metadata object))
                                 'string-lessp
                                 :key 'car)
                           'list)))))

(fiveam:def-test pack-files-tree ()
  (let* ((hash "1da546ab4697b719efb62f11fd785d6ad3b226d2")
         (ref (fwoar.cl-git::packed-ref
               :fwoar.cl-git.git-objects.pack
               hash))
         (object (progn (fiveam:is (not (null ref)))
                        (fiveam:is (equal hash (fwoar.cl-git::ref-hash ref)))
                        (fiveam:is (equal *fake-repo* (fwoar.cl-git::ref-repo ref)))
                        (fwoar.cl-git::extract-object ref))))
    (5am:is (typep object 'fwoar.cl-git::git-tree))
    (let* ((entries (fwoar.cl-git::entries object))
           (entry (progn (5am:is (= (length entries) 1))
                         (car entries))))
      (5am:is (equal "4b5fa63702dd96796042e92787f464e28f09f17d"
                     (fwoar.cl-git:component :hash entry)))
      (5am:is (equal "a"
                     (fwoar.cl-git:component :name entry)))
      (5am:is (equal "100644"
                     (fwoar.cl-git:component :mode entry))))))

(fiveam:def-test pack-files-blob ()
  (let* ((hash "4b5fa63702dd96796042e92787f464e28f09f17d")
         (ref (fwoar.cl-git::packed-ref
               :fwoar.cl-git.git-objects.pack
               hash))
         (object (progn (fiveam:is (not (null ref)))
                        (fiveam:is (equal hash (fwoar.cl-git::ref-hash ref)))
                        (fiveam:is (equal *fake-repo* (fwoar.cl-git::ref-repo ref)))
                        (fwoar.cl-git::extract-object ref))))
    (5am:is (typep object 'fwoar.cl-git::blob))
    (5am:is (equal "hello, world
"
                   (babel:octets-to-string
                    (fwoar.cl-git::data
                     (fwoar.cl-git::extract-object
                      (fwoar.cl-git::packed-ref
                       :fwoar.cl-git.git-objects.pack
                       "4b5fa63702dd96796042e92787f464e28f09f17d")))
                    :encoding :utf-8)))))


(defparameter *fake-repo-2* :fwoar.cl-git.git-objects.pack-2)
(defclass fake-ref-2 (fake-ref)
  ())
(defun fake-ref-2 (repo hash)
  (fwoar.lisputils:new 'fake-ref-2 repo hash))
(defmethod fwoar.cl-git::packed-ref-pack ((ref fake-ref-2))
  (let* ((pack-file (asdf:system-relative-pathname
                     :co.fwoar.cl-git/tests
                     "tests/sample-git-objects/pack-a0533639fdee4493fdbfc1b701872ace63b95e5f.pack"))
         (index-file (asdf:system-relative-pathname
                      :co.fwoar.cl-git/tests
                      "tests/sample-git-objects/pack-a0533639fdee4493fdbfc1b701872ace63b95e5f.idx")))
    (make-instance 'fwoar.cl-git::pack
                   :repository nil
                   :index index-file
                   :pack pack-file)))
(defmethod fwoar.cl-git::packed-ref-offset ((ref fake-ref-2))
  (nth-value 1 (fwoar.cl-git::find-sha-in-pack (fwoar.cl-git::packed-ref-pack ref)
                                               (fwoar.cl-git::ref-hash ref))))
(defmethod fwoar.cl-git::ref ((repo (eql *fake-repo-2*)) hash)
  (fake-ref-2 repo hash))
(defmethod fwoar.cl-git::pack-files ((repo (eql *fake-repo-2*)))
  (list
   (let* ((pack-file (asdf:system-relative-pathname
                      :co.fwoar.cl-git/tests
                      "tests/sample-git-objects/pack-a0533639fdee4493fdbfc1b701872ace63b95e5f.pack"))
          (index-file (asdf:system-relative-pathname
                       :co.fwoar.cl-git/tests
                       "tests/sample-git-objects/pack-a0533639fdee4493fdbfc1b701872ace63b95e5f.idx")))
     (make-instance 'fwoar.cl-git::pack
                    :repository nil
                    :index index-file
                    :pack pack-file))))

(fiveam:def-test pack-files-offsets ()
  (let* ((fwoar.cl-git:*want-delta* t)
         (expectations-file
           (asdf:system-relative-pathname
            :co.fwoar.cl-git/tests
            "tests/sample-git-objects/pack-a0533639fdee4493fdbfc1b701872ace63b95e5f.delta-bases"))
         (expectations (uiop:read-file-form expectations-file)))
    (loop for (ref . base-offset) in expectations
          do (5am:is (equal base-offset
                            (second
                             (fwoar.cl-git::base
                              (fwoar.cl-git::extract-object
                               (fwoar.cl-git::packed-ref *fake-repo-2* ref)))))))
    ))

(fiveam:def-test test-pack-roundtrip ()
  (let ((shas '("b7df27f1c873f5796462cdce8aabf46c1b3e3ff2"
                "d468a84b54e73968d9426af96c1944c80ffa3a4f"
                "4cc1ee4919056be337922f0a57e0bfe7281b8c57"
                "4d4ea31b3d349ffd06e97469743f824578555edf"
                "7df80f061ae5bf6177a1c0888d085281be2801e1"
                "846489f7ae91bfaf0c78a6939b177697a89a81d0"
                "bc7ccfbd98e684d9188b6833ec39f7d1d72edfdf"
                "6089dc804725925c30d621c3d2f72c8b1b14bc17"
                "500325f0022a9adc41929b58fbb5c2d55b60524b"
                "72870f874f3ef712d9bea352e300b9b5f6aa60ee"
                "0c24c8f931ad5c0d2e5add01710678abddd3ec03"
                "e499f64d2ead6d14d74fe0f484d06f33bbd38261"
                "efe60b9f578c4966cb2258ace1661edd080ca0dc"
                "821ddf96c37e65ccc9a0f4bfe2b8ac6e255a2cb6"
                "077088c8c359489ed1f6d8e441ec76438076542e"
                "e1f7c67a8774d65bb941eeb2b41f71f333fa1a94"
                "ff33293b415cc1907a6071650d045b3dffd8e5c0"
                "e98a5866a0148fe573197e8c48a543fc3039f1bc"
                "f09f6f1b30fd3579649f8abf23719901496accde"
                "692f03101cd8ebf6830618805217b6348ddfd3a8"
                "f710cf28a9f511911e1def85c4cb98bfbcfd9017"
                "0b3ed8597e1968306c3732f7507256694357009f"
                "88e003ecce9e9420632d0bab857270819e922674"
                "5c205fb851671ff0938c86d7c0cc742f2ca2d32f"
                "8f6a890959795d2b340615a074170ce404d7f2b9"
                "e079ee4a351de0841c09f87dffdee333ef936673"
                "347e97b1efa866e3bd00bbfb68c5b660e378f3b5"
                "ad9b8a82065f70aac3da61e845ab2cd37a71e649"
                "83674eea1c0a2f2df2886b38b9539ed1193b00c3"
                "e623be68f6fd0c36dee0145a4c95dbbf85174774"
                "a7c6e622cca243456481ffbeafaab739e4687681"
                "b0bbceded2a17389a9a6ddc765398a257199c78e"
                "82c268c1e7afe543ac14bf2748df53a729fa35cb"
                "2fb0a2fc57327dc6a533b596a0643ad991847b3b"
                "f1a12e8a19691afcd5ee08d615a1b4d14b5051f9"
                "991d0162019ac2e21592553a10ab16eb337222d8"
                "94acd859d12ae611e631cfd66b7ed164d6b5ac89"
                "f115dea85d331cb5c01e247d77886bba2690e726"
                "488cc8612e7b24a1737a260b10bff0037b55636e"
                "be4ef77fd7da17393e02ef933e8d21e67be7fbec"
                "a84a7f712398c1659f2e809d903ae51b44cf7f4a"
                "8a9fe9f77149f74fed5c05388be8e5ffd4a31678"
                "e69de29bb2d1d6434b8b29ae775ad8c2e48c5391"
                "0306819e780fa57dc3bf6b99a0a059670b605ae0"
                "a52be677adeda194bcdfdd12740f00535b6b0997"
                "fb265bb344fee602dc175d1d5eac6bdc2d013a10"
                "9db42f61f21e11529b9bc1c52ee118c03d663c04"
                "197e10755343900cfbcb7fc6d863d4b3231e74d4"
                "83324cbcb0ef5b778588cc6ba547c43c46bff8c6"
                "88988d16b44fc03054807882783ed176162228f4"
                "d2818bb88b8ec5235a8ae91309f31ba58d941d42"
                "c1b83741c4dc3104f1686c20b143300db0a0e258"
                "7e24a6a7a4349497fce06830fa132e9a8ef6fd06"
                "9567a5825bf65b7e90d6f9a02574a00b53af9171"
                "b757bb704b4c7a54622b7bd197ad5c1ea51ef2cc"
                "ccccc07814249fc7a129bfffd07f09704d0f017b"
                "a4b5b13466bb8e80d6f8015e2bf27667533ea441"
                "3d894d70b6e1036034f22654408a382b6e303335"
                "fed9d70ab2441d8c8abf19648668f885ed5a4986"
                "b50c3a28d0bdab4d922d4b363cada4c582349178"
                "4b825dc642cb6eb9a060e54bf8d69288fbee4904"
                "71da880a8be0356b67d593fac348dfe429d1e0b6"
                "cab7cafae3b61c5b101ee914cd4f5c8357e77fad"
                "f03a8d1b4cea085ee9555037d09bca2dbfb990cb")))
    (loop for commit in shas
          for obj = (fwoar.cl-git::raw-object-for-ref
                     (fwoar.cl-git::ref :fwoar.cl-git.git-objects.pack-2 commit))
          do (5am:is (equal (crypto:byte-array-to-hex-string
                             (crypto:digest-sequence :sha1 obj))
                            commit)))))

(fiveam:def-test pack-file-apply-delta-commands ()
  (flet ((test-ref (ref)
           (let* ((expectations-file
                    (asdf:system-relative-pathname
                     :co.fwoar.cl-git/tests
                     (format nil "tests/sample-git-objects/blob-~a-fixture"
                             (subseq ref 0 7))))
                  (expectations
                    (alexandria:read-file-into-byte-vector expectations-file)))
             (5am:is
              (serapeum:vector=
               expectations
               (fwoar.cl-git::data
                (fwoar.cl-git::extract-object
                 (fwoar.cl-git::packed-ref :fwoar.cl-git.git-objects.pack-2 ref))))))))

    (test-ref "87c2b9b2dfaa1fbf66b3fe88d3a925593886b159")

    (test-ref "9776df71b5ddf298c56e99b7291f9e68906cf049")

    (test-ref "31576396aff0fff28f69e0ef84571c0dc8cc43ec")

    (test-ref "c516dfc248544509c3ae58e3a8c2ab81c225aa9c")

    (test-ref "53d13ed284f8b57297d1b216e2bab7fb43f8db60")

    (test-ref "912d31a169ddf1fca122d4c6fe1b1e6be7cd1176")))