;; This Source Code Form is subject to the terms of the Mozilla Public
;; License, v. 2.0. If a copy of the MPL was not distributed with this
;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
;;
;; Copyright (c) KALEIDOS SUBSIDIARY SL

(ns common-tests.uuid-test
  (:require
   [app.common.uuid :as uuid]
   [clojure.test :as t]))

(defn create-array
  [data]
  #?(:clj (byte-array data)
     :cljs (.from js/Int8Array (into-array data))))

(t/deftest bytes-roundtrip
  (let [uuid           (uuid/uuid "0227df82-63d7-8016-8005-48d9c0f33011")
        result-bytes   (uuid/get-bytes uuid)
        expected-bytes [2 39 -33 -126 99 -41 -128 22 -128 5 72 -39 -64 -13 48 17]]

    (t/testing "get-bytes"
      (let [data (uuid/get-bytes uuid)]
        (t/is (= (nth expected-bytes 0)  (aget data 0)))
        (t/is (= (nth expected-bytes 1)  (aget data 1)))
        (t/is (= (nth expected-bytes 2)  (aget data 2)))
        (t/is (= (nth expected-bytes 3)  (aget data 3)))
        (t/is (= (nth expected-bytes 4)  (aget data 4)))
        (t/is (= (nth expected-bytes 5)  (aget data 5)))
        (t/is (= (nth expected-bytes 6)  (aget data 6)))
        (t/is (= (nth expected-bytes 7)  (aget data 7)))
        (t/is (= (nth expected-bytes 8)  (aget data 8)))
        (t/is (= (nth expected-bytes 9)  (aget data 9)))
        (t/is (= (nth expected-bytes 10) (aget data 10)))
        (t/is (= (nth expected-bytes 11) (aget data 11)))
        (t/is (= (nth expected-bytes 12) (aget data 12)))
        (t/is (= (nth expected-bytes 13) (aget data 13)))
        (t/is (= (nth expected-bytes 14) (aget data 14)))
        (t/is (= (nth expected-bytes 15) (aget data 15)))))

    (t/testing "from-bytes"
      (let [data   (create-array expected-bytes)
            result (uuid/from-bytes data)]
        (t/is (= result uuid))))))


(t/deftest bytes-roundtrip-2
  (let [uuid           (uuid/uuid "a1a2a3a4-b1b2-c1c2-d1d2-d3d4d5d6d7d8")
        result-bytes   (uuid/get-bytes uuid)
        expected-hi    #?(:clj -6799692559624781374
                          :cljs (js/BigInt "-6799692559624781374"))
        expected-lo    #?(:clj -3327364263599220776
                          :cljs (js/BigInt "-3327364263599220776"))

        expected-bytes [-95, -94, -93, -92, -79, -78, -63, -62, -47, -46, -45, -44, -43, -42, -41, -40]]

    (t/testing "get-bytes"
      (let [data (uuid/get-bytes uuid)]
        (t/is (= (nth expected-bytes 0)  (aget data 0)))
        (t/is (= (nth expected-bytes 1)  (aget data 1)))
        (t/is (= (nth expected-bytes 2)  (aget data 2)))
        (t/is (= (nth expected-bytes 3)  (aget data 3)))
        (t/is (= (nth expected-bytes 4)  (aget data 4)))
        (t/is (= (nth expected-bytes 5)  (aget data 5)))
        (t/is (= (nth expected-bytes 6)  (aget data 6)))
        (t/is (= (nth expected-bytes 7)  (aget data 7)))
        (t/is (= (nth expected-bytes 8)  (aget data 8)))
        (t/is (= (nth expected-bytes 9)  (aget data 9)))
        (t/is (= (nth expected-bytes 10) (aget data 10)))
        (t/is (= (nth expected-bytes 11) (aget data 11)))
        (t/is (= (nth expected-bytes 12) (aget data 12)))
        (t/is (= (nth expected-bytes 13) (aget data 13)))
        (t/is (= (nth expected-bytes 14) (aget data 14)))
        (t/is (= (nth expected-bytes 15) (aget data 15)))))

    (t/testing "from-bytes"
      (let [data   (create-array expected-bytes)
            result (uuid/from-bytes data)]
        (t/is (= result uuid))))

    (t/testing "hi-low"
      (let [hi (uuid/get-word-high uuid)
            lo (uuid/get-word-low uuid)]

        (t/is (= hi expected-hi))
        (t/is (= lo expected-lo))))

    #?(:cljs
       (t/testing "unsigned-parts"
         (let [parts    (uuid/get-unsigned-parts uuid)
               expected [2711790500, 2981282242, 3520254932, 3587626968]]

           (t/is (instance? js/Uint32Array parts))
           (t/is (= (nth expected 0) (aget parts 0)))
           (t/is (= (nth expected 1) (aget parts 1)))
           (t/is (= (nth expected 2) (aget parts 2)))
           (t/is (= (nth expected 3) (aget parts 3))))))))

(t/deftest user-provided-test
  ;; The version is the first nibble of the 3rd group, the variant is
  ;; the first nibble of the 4th group (8, 9, a or b means RFC 4122).
  (let [v4              (uuid/uuid "550e8400-e29b-41d4-a716-446655440000") ; v4, variant a: valid
        v7              (uuid/uuid "0191062e-3f50-7a5e-9f5a-1a2b3c4d5e6f") ; v7, variant 9: valid
        v8              (uuid/uuid "0227df82-63d7-8016-8005-48d9c0f33011") ; v8, variant 8: valid
        v4-upper        (uuid/uuid "550E8400-E29B-41D4-A716-446655440000") ; v4 uppercase, variant A: valid
        v1              (uuid/uuid "6ba7b810-9dad-11d1-80b4-00c04fd430c8") ; v1 time-based: rejected
        v3              (uuid/uuid "6fa459ea-ee8a-3ca4-894e-db77e160355e") ; v3 MD5 name-based (reserved): rejected
        v5              (uuid/uuid "886313e1-3b8a-5372-9b90-0c9aee199e5d") ; v5 SHA-1 name-based: rejected
        v6              (uuid/uuid "1e29effc-7a68-6d2c-9b6f-7f6a5f9b5b5b") ; v6 time-ordered: rejected
        v4-bad-variant (uuid/uuid "550e8400-e29b-41d4-0716-446655440000")] ; v4 but variant 0 (NCS reserved): rejected

    (t/testing "accepts v4, v7 and v8 instances"
      (t/is (true? (uuid/user-provided? v4)))
      (t/is (true? (uuid/user-provided? v7)))
      (t/is (true? (uuid/user-provided? v8)))
      (t/is (true? (uuid/user-provided? v4-upper)))
      (t/is (true? (uuid/user-provided? (uuid/random)))) ; generates v4
      (t/is (true? (uuid/user-provided? (uuid/next))))) ; generates v8

    (t/testing "rejects strings, they must be decoded first"
      (t/is (false? (uuid/user-provided? (str v4))))
      (t/is (false? (uuid/user-provided? (str v7))))
      (t/is (false? (uuid/user-provided? (str v8))))
      (t/is (false? (uuid/user-provided? (str v3)))))

    (t/testing "rejects nil uuid and reserved and other versions"
      (t/is (false? (uuid/user-provided? uuid/zero))) ; version 0, variant 0
      (t/is (false? (uuid/user-provided? v1)))
      (t/is (false? (uuid/user-provided? v3)))
      (t/is (false? (uuid/user-provided? v5)))
      (t/is (false? (uuid/user-provided? v6)))
      (t/is (false? (uuid/user-provided? (uuid/custom 1))))) ; version 0, variant 0

    (t/testing "rejects right version with wrong variant"
      (t/is (false? (uuid/user-provided? v4-bad-variant))))

    (t/testing "rejects non-uuid values"
      (t/is (false? (uuid/user-provided? nil)))
      (t/is (false? (uuid/user-provided? 42)))
      (t/is (false? (uuid/user-provided? "not-an-uuid"))))))