;; 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 INC Sucursal en España SL

(ns common-tests.logic.token-test
  (:require
   [app.common.files.changes-builder :as pcb]
   [app.common.logic.tokens :as clt]
   [app.common.test-helpers.files :as thf]
   [app.common.test-helpers.ids-map :as thi]
   [app.common.test-helpers.tokens :as tht]
   [app.common.types.tokens-lib :as ctob]
   [app.common.types.tokens-status :as ctos]
   [app.common.uuid :as uuid]
   [clojure.test :as t]))

(t/use-fixtures :each thi/test-fixture)

;; Tokens lib

(t/deftest generate-move-token-set-test
  (t/testing "Ignore dropping set to the same position:"
    (let [file (tht/sample-file-with-tokens
                :lib-fn #(-> %
                             (ctob/add-set (ctob/make-token-set :name "foo"))
                             (ctob/add-set (ctob/make-token-set :name "bar/baz"))))
          drop (partial clt/generate-move-token-set (pcb/empty-changes) (tht/get-tokens-lib file))]
      (t/testing "on top of identical"
        (t/is (= (pcb/empty-changes)
                 (drop {:from-index 0
                        :to-index 0
                        :position :top}))))
      (t/testing "on bottom of identical"
        (t/is (= (pcb/empty-changes)
                 (drop {:from-index 0
                        :to-index 0
                        :position :bot}))))
      (t/testing "on top of next to identical"
        (t/is (= (pcb/empty-changes)
                 (drop {:from-index 0
                        :to-index 1
                        :position :top}))))))

  (t/testing "Reorder sets when dropping next to a set:"
    (t/testing "at top"
      (let [file (tht/sample-file-with-tokens
                  :lib-fn #(-> %
                               (ctob/add-set (ctob/make-token-set :name "foo"))
                               (ctob/add-set (ctob/make-token-set :name "bar"))
                               (ctob/add-set (ctob/make-token-set :name "baz"))))
            lib (tht/get-tokens-lib file)
            changes (clt/generate-move-token-set (pcb/empty-changes) lib {:from-index 1
                                                                          :to-index 0
                                                                          :position :top})
            redo (thf/apply-changes file changes)
            redo-sets (-> (tht/get-tokens-lib redo)
                          (ctob/get-set-names))
            undo (thf/apply-undo-changes redo changes)
            undo-sets (-> (tht/get-tokens-lib undo)
                          (ctob/get-set-names))]
        (t/is (= ["bar" "foo" "baz"] (vec redo-sets)))
        (t/testing "undo"
          (t/is (= (ctob/get-set-names lib) undo-sets)))))

    (t/testing "at bottom"
      (let [file (tht/sample-file-with-tokens
                  :lib-fn #(-> %
                               (ctob/add-set (ctob/make-token-set :name "foo"))
                               (ctob/add-set (ctob/make-token-set :name "bar"))
                               (ctob/add-set (ctob/make-token-set :name "baz"))))
            lib (tht/get-tokens-lib file)
            changes (clt/generate-move-token-set (pcb/empty-changes) lib {:from-index 0
                                                                          :to-index 2
                                                                          :position :bot})
            redo (thf/apply-changes file changes)
            redo-sets (-> (tht/get-tokens-lib redo)
                          (ctob/get-set-names))
            undo (thf/apply-undo-changes redo changes)
            undo-sets (-> (tht/get-tokens-lib undo)
                          (ctob/get-set-names))]
        (t/is (= ["bar" "baz" "foo"] (vec redo-sets)))
        (t/testing "undo"
          (t/is (= (ctob/get-set-names lib) undo-sets)))))

    (t/testing "dropping out of set group"
      (let [file (tht/sample-file-with-tokens
                  :lib-fn #(-> %
                               (ctob/add-set (ctob/make-token-set :name "foo/bar"))
                               (ctob/add-set (ctob/make-token-set :name "foo"))))
            lib (tht/get-tokens-lib file)
            changes (clt/generate-move-token-set (pcb/empty-changes) lib {:from-index 1
                                                                          :to-index 0
                                                                          :position :top})
            redo (thf/apply-changes file changes)
            redo-sets (-> (tht/get-tokens-lib redo)
                          (ctob/get-set-names))
            undo (thf/apply-undo-changes redo changes)
            undo-sets (-> (tht/get-tokens-lib undo)
                          (ctob/get-set-names))]
        (t/is (= ["bar" "foo"] (vec redo-sets)))
        (t/testing "undo"
          (t/is (= (ctob/get-set-names lib) undo-sets)))))

    (t/testing "into set group"
      (let [file (tht/sample-file-with-tokens
                  :lib-fn #(-> %
                               (ctob/add-set (ctob/make-token-set :name "foo/bar"))
                               (ctob/add-set (ctob/make-token-set :name "foo"))))
            lib (tht/get-tokens-lib file)
            changes (clt/generate-move-token-set (pcb/empty-changes) lib {:from-index 2
                                                                          :to-index 1
                                                                          :position :bot})
            redo (thf/apply-changes file changes)
            redo-sets (-> (tht/get-tokens-lib redo)
                          (ctob/get-set-names))
            undo (thf/apply-undo-changes redo changes)
            undo-sets (-> (tht/get-tokens-lib undo)
                          (ctob/get-set-names))]
        (t/is (= ["foo/bar" "foo/foo"] (vec redo-sets)))
        (t/testing "undo"
          (t/is (= (ctob/get-set-names lib) undo-sets)))))

    (t/testing "edge-cases:"
      (t/testing "prevent overriding set to identical path"
        (let [file (tht/sample-file-with-tokens
                    :lib-fn #(-> %
                                 (ctob/add-set (ctob/make-token-set :name "foo/foo"))
                                 (ctob/add-set (ctob/make-token-set :name "foo"))))
              lib (tht/get-tokens-lib file)]
          (t/is (thrown?
                 #?(:cljs js/Error :clj Exception)
                 (clt/generate-move-token-set (pcb/empty-changes) lib {:from-index 2
                                                                       :to-index 0
                                                                       :position :bot})
                 #"move token set error: path exists"))
          (t/is (thrown?
                 #?(:cljs js/Error :clj Exception)
                 (clt/generate-move-token-set (pcb/empty-changes) lib {:from-index 2
                                                                       :to-index 1
                                                                       :position :bot})
                 #"move token set error: path exists"))))

      (t/testing "dropping below collapsed group doesnt add as child"
        (let [file (tht/sample-file-with-tokens
                    :lib-fn #(-> %
                                 (ctob/add-set (ctob/make-token-set :name "foo"))
                                 (ctob/add-set (ctob/make-token-set :name "foo/bar"))))
              lib (tht/get-tokens-lib file)
              changes (clt/generate-move-token-set (pcb/empty-changes) lib {:from-index 0
                                                                            :to-index 1
                                                                            :position :bot
                                                                            :collapsed-paths #{["foo"]}})
              redo (thf/apply-changes file changes)
              redo-sets (-> (tht/get-tokens-lib redo)
                            (ctob/get-set-names))
              undo (thf/apply-undo-changes redo changes)
              undo-sets (-> (tht/get-tokens-lib undo)
                            (ctob/get-set-names))]
          (t/is (= ["foo/bar" "foo"] (vec redo-sets)))
          (t/testing "undo"
            (t/is (= (ctob/get-set-names lib) undo-sets))))))))

(t/deftest generate-move-token-group-test
  (t/testing "Ignore dropping set group to the same position"
    (let [file (tht/sample-file-with-tokens
                :lib-fn #(-> %
                             (ctob/add-set (ctob/make-token-set :name "foo"))
                             (ctob/add-set (ctob/make-token-set :name "bar/baz"))))
          drop (partial clt/generate-move-token-set-group (pcb/empty-changes) (tht/get-tokens-lib file))]
      (t/testing "on top of identical"
        (t/is (= (pcb/empty-changes)
                 (drop {:from-index 1
                        :to-index 1
                        :position :top}))))
      (t/testing "on bottom of identical"
        (t/is (= (pcb/empty-changes)
                 (drop {:from-index 1
                        :to-index 1
                        :position :bot}))))
      (t/testing "on top of next to identical"
        (t/is (= (pcb/empty-changes)
                 (drop {:from-index 1
                        :to-index 1
                        :position :top}))))))

  (t/testing "Move set groups"
    (t/testing "to top"
      (let [file (tht/sample-file-with-tokens
                  :lib-fn #(-> %
                               (ctob/add-set (ctob/make-token-set :name "foo/foo"))
                               (ctob/add-set (ctob/make-token-set :name "bar/bar"))
                               (ctob/add-set (ctob/make-token-set :name "baz/baz"))))
            lib (tht/get-tokens-lib file)
            changes (clt/generate-move-token-set-group (pcb/empty-changes) lib {:from-index 2
                                                                                :to-index 0
                                                                                :position :top})
            redo (thf/apply-changes file changes)
            redo-sets (-> (tht/get-tokens-lib redo)
                          (ctob/get-set-names))
            undo (thf/apply-undo-changes redo changes)
            undo-sets (-> (tht/get-tokens-lib undo)
                          (ctob/get-set-names))]
        (t/is (= ["bar/bar" "foo/foo" "baz/baz"] (vec redo-sets)))

        (t/testing "undo"
          (t/is (= (ctob/get-set-names lib) undo-sets)))))

    (t/testing "to bottom"
      (let [file (tht/sample-file-with-tokens
                  :lib-fn #(-> %
                               (ctob/add-set (ctob/make-token-set :name "foo/foo"))
                               (ctob/add-set (ctob/make-token-set :name "bar"))))
            lib (tht/get-tokens-lib file)
            changes (clt/generate-move-token-set-group (pcb/empty-changes) lib {:from-index 0
                                                                                :to-index 2
                                                                                :position :bot})
            redo (thf/apply-changes file changes)
            redo-sets (-> (tht/get-tokens-lib redo)
                          (ctob/get-set-names))
            undo (thf/apply-undo-changes redo changes)
            undo-sets (-> (tht/get-tokens-lib undo)
                          (ctob/get-set-names))]
        (t/is (= ["bar" "foo/foo"] (vec redo-sets)))

        (t/testing "undo"
          (t/is (= (ctob/get-set-names lib) undo-sets)))))

    (t/testing "into set group"
      (let [file (tht/sample-file-with-tokens
                  :lib-fn #(-> %
                               (ctob/add-set (ctob/make-token-set :name "foo/foo"))
                               (ctob/add-set (ctob/make-token-set :name "bar/bar"))))
            lib (tht/get-tokens-lib file)
            changes (clt/generate-move-token-set-group (pcb/empty-changes) lib {:from-index 0
                                                                                :to-index 2
                                                                                :position :bot})
            redo (thf/apply-changes file changes)
            redo-sets (-> (tht/get-tokens-lib redo)
                          (ctob/get-set-names))
            undo (thf/apply-undo-changes redo changes)
            undo-sets (-> (tht/get-tokens-lib undo)
                          (ctob/get-set-names))]
        (t/is (= ["bar/foo/foo" "bar/bar"] (vec redo-sets)))
        (t/testing "undo"
          (t/is (= (ctob/get-set-names lib) undo-sets))))

      (t/testing "edge-cases:"
        (t/testing "prevent overriding set to identical path"
          (let [file (tht/sample-file-with-tokens
                      :lib-fn #(-> %
                                   (ctob/add-set (ctob/make-token-set :name "foo/identical/foo"))
                                   (ctob/add-set (ctob/make-token-set :name "identical/bar"))))
                lib (tht/get-tokens-lib file)]
            (t/is (thrown?
                   #?(:cljs js/Error :clj Exception)
                   (clt/generate-move-token-set-group (pcb/empty-changes) lib {:from-index 3
                                                                               :to-index 1
                                                                               :position :top})
                   #"move token set error: path exists"))))

        (t/testing "prevent dropping parent to child"
          (let [file (tht/sample-file-with-tokens
                      :lib-fn #(-> %
                                   (ctob/add-set (ctob/make-token-set :name "foo/bar/baz"))))
                lib (tht/get-tokens-lib file)]
            (t/is (thrown?
                   #?(:cljs js/Error :clj Exception)
                   (clt/generate-move-token-set-group (pcb/empty-changes) lib {:from-index 0
                                                                               :to-index 1
                                                                               :position :bot})
                   #"move token set error: parent-to-child"))))))))

(t/deftest generate-delete-token-set-group-test
  (t/testing "deletes all sets under the given group path"
    (let [set-a-id (thi/new-id! :set-a)
          set-b-id (thi/new-id! :set-b)
          set-c-id (thi/new-id! :set-c)
          file (tht/sample-file-with-tokens
                :lib-fn #(-> %
                             (ctob/add-set (ctob/make-token-set :id set-a-id :name "group/set-a"))
                             (ctob/add-set (ctob/make-token-set :id set-b-id :name "group/set-b"))
                             (ctob/add-set (ctob/make-token-set :id set-c-id :name "other/set-c"))))
          tokens-lib (tht/get-tokens-lib file)
          changes (-> (pcb/empty-changes)
                      (pcb/with-library-data (:data file))
                      (clt/generate-delete-token-set-group tokens-lib ["group"]))

          redo (thf/apply-changes file changes)
          redo-lib (tht/get-tokens-lib redo)
          undo (thf/apply-undo-changes redo changes)
          undo-lib (tht/get-tokens-lib undo)]
      ;; Redo: group sets deleted, other set remains
      (t/is (not (ctob/set-path-exists? redo-lib ["group" "set-a"])))
      (t/is (not (ctob/set-path-exists? redo-lib ["group" "set-b"])))
      (t/is (ctob/set-path-exists? redo-lib ["other" "set-c"]))
      ;; Undo: group sets restored
      (t/is (ctob/set-path-exists? undo-lib ["group" "set-a"]))
      (t/is (ctob/set-path-exists? undo-lib ["group" "set-b"]))))

  (t/testing "deleting a group with nested subgroups deletes all descendant sets"
    (let [set-a-id (thi/new-id! :set-a)
          set-b-id (thi/new-id! :set-b)
          file (tht/sample-file-with-tokens
                :lib-fn #(-> %
                             (ctob/add-set (ctob/make-token-set :id set-a-id :name "group/sub/set-a"))
                             (ctob/add-set (ctob/make-token-set :id set-b-id :name "group/set-b"))))
          tokens-lib (tht/get-tokens-lib file)
          changes (-> (pcb/empty-changes)
                      (pcb/with-library-data (:data file))
                      (clt/generate-delete-token-set-group tokens-lib ["group"]))

          redo (thf/apply-changes file changes)
          redo-lib (tht/get-tokens-lib redo)
          undo (thf/apply-undo-changes redo changes)
          undo-lib (tht/get-tokens-lib undo)]
      ;; Redo: all group sets deleted
      (t/is (not (ctob/set-path-exists? redo-lib ["group" "sub" "set-a"])))
      (t/is (not (ctob/set-path-exists? redo-lib ["group" "set-b"])))
      ;; Undo: all restored
      (t/is (ctob/set-path-exists? undo-lib ["group" "sub" "set-a"]))
      (t/is (ctob/set-path-exists? undo-lib ["group" "set-b"]))))

  (t/testing "deleting an empty group produces no changes"
    (let [file (tht/sample-file-with-tokens
                :lib-fn #(ctob/add-set % (ctob/make-token-set :name "other/set-a")))
          tokens-lib (tht/get-tokens-lib file)
          changes (-> (pcb/empty-changes)
                      (pcb/with-library-data (:data file))
                      (clt/generate-delete-token-set-group tokens-lib ["nonexistent"]))]
      (t/is (= [] (:redo-changes changes))))))

(t/deftest set-token-theme-test
  (t/testing "delete token theme"
    (let [theme-id (uuid/next)
          file (tht/sample-file-with-tokens
                :lib-fn #(-> %
                             (ctob/add-theme (ctob/make-token-theme :id theme-id
                                                                    :name "foo"
                                                                    :group "main"))))
          changes (-> (pcb/empty-changes)
                      (pcb/with-library-data (:data file))
                      (pcb/set-token-theme theme-id nil))

          redo (thf/apply-changes file changes)
          redo-lib (tht/get-tokens-lib redo)
          undo (thf/apply-undo-changes redo changes)
          undo-lib (tht/get-tokens-lib undo)]
      ;; Redo
      (t/is (nil? (ctob/get-theme redo-lib theme-id)))
      ;; Undo
      (t/is (some? (ctob/get-theme undo-lib theme-id)))))

  (t/testing "add token theme"
    (let [theme-id (uuid/next)
          theme (ctob/make-token-theme :id theme-id
                                       :name "foo"
                                       :group "main")
          file (tht/sample-file-with-tokens)
          changes (-> (pcb/empty-changes)
                      (pcb/with-library-data (:data file))
                      (pcb/set-token-theme theme-id theme))
          redo (thf/apply-changes file changes)
          redo-lib (tht/get-tokens-lib redo)
          undo (thf/apply-undo-changes redo changes)
          undo-lib (tht/get-tokens-lib undo)]
      ;; Redo
      (t/is (some? (ctob/get-theme redo-lib theme-id)))
      ;; Undo
      (t/is (nil? (ctob/get-theme undo-lib theme-id)))))

  (t/testing "update token theme"
    (let [theme-id (uuid/next)
          prev-theme-name "foo"
          prev-theme (ctob/make-token-theme :id theme-id
                                            :name prev-theme-name
                                            :group "main")
          file (tht/sample-file-with-tokens
                :lib-fn #(ctob/add-theme % prev-theme))
          new-theme-name "foo1"
          changes (-> (pcb/empty-changes)
                      (pcb/with-library-data (:data file))
                      (pcb/set-token-theme theme-id (ctob/rename prev-theme new-theme-name)))
          redo (thf/apply-changes file changes)
          redo-lib (tht/get-tokens-lib redo)
          redo-theme (ctob/get-theme redo-lib theme-id)
          undo (thf/apply-undo-changes redo changes)
          undo-lib (tht/get-tokens-lib undo)
          undo-theme (ctob/get-theme undo-lib theme-id)]
      ;; Redo
      (t/is (= new-theme-name (ctob/get-name redo-theme)))
      ;; Undo
      (t/is (= prev-theme-name (ctob/get-name undo-theme)))))

  (t/testing "toggling token theme updates using changes history"
    (let [theme-id (uuid/next)
          theme (ctob/make-token-theme :id theme-id
                                       :name "foo-theme"
                                       :group "main")
          set-name "bar-set"
          token-set (ctob/make-token-set :name set-name)
          file (tht/sample-file-with-tokens
                :lib-fn #(-> %
                             (ctob/add-theme theme)
                             (ctob/add-set token-set)))
          theme' (assoc theme :sets #{set-name})
          changes (-> (pcb/empty-changes)
                      (pcb/with-library-data (:data file))
                      (pcb/set-token-theme theme-id theme'))
          changed-file (-> file
                           (thf/apply-changes changes)
                           (thf/apply-undo-changes changes)
                           (thf/apply-changes changes))
          changed-lib (tht/get-tokens-lib changed-file)]
      (t/is (= #{set-name}
               (-> changed-lib (ctob/get-theme theme-id) :sets))))))

(t/deftest set-token-test
  (t/testing "delete token"
    (let [set-name "foo"
          set-id (uuid/next)
          token-id (uuid/next)
          file (tht/sample-file-with-tokens
                :lib-fn #(-> %
                             (ctob/add-set (ctob/make-token-set :id set-id
                                                                :name set-name))
                             (ctob/add-token set-id (ctob/make-token {:name "to.delete.color.red"
                                                                      :id token-id
                                                                      :value "red"
                                                                      :type :color}))))
          changes (-> (pcb/empty-changes)
                      (pcb/with-library-data (:data file))
                      (pcb/set-token set-id token-id nil))

          redo (thf/apply-changes file changes)
          redo-lib (tht/get-tokens-lib redo)
          undo (thf/apply-undo-changes redo changes)
          undo-lib (tht/get-tokens-lib undo)]
      (t/is (nil? (ctob/get-token redo-lib set-id token-id)))
      ;; Undo
      (t/is (some? (ctob/get-token undo-lib set-id token-id)))))

  (t/testing "add token"
    (let [set-name "foo"
          set-id (uuid/next)
          token (ctob/make-token {:name "to.add.color.red"
                                  :value "red"
                                  :type :color})
          file (tht/sample-file-with-tokens
                :lib-fn #(-> % (ctob/add-set (ctob/make-token-set :id set-id
                                                                  :name set-name))))
          changes (-> (pcb/empty-changes)
                      (pcb/with-library-data (:data file))
                      (pcb/set-token set-id (:id token) token))

          redo (thf/apply-changes file changes)
          redo-lib (tht/get-tokens-lib redo)
          undo (thf/apply-undo-changes redo changes)
          undo-lib (tht/get-tokens-lib undo)]
      (t/is (= token (ctob/get-token redo-lib set-id (:id token))))
      ;; Undo
      (t/is (nil? (ctob/get-token undo-lib set-id (:id token))))))

  (t/testing "update token"
    (let [set-name "foo"
          set-id (uuid/next)
          prev-token (ctob/make-token {:name "to.update.color.red"
                                       :value "red"
                                       :type :color})
          token (-> prev-token
                    (assoc :name "color.red.changed")
                    (assoc :value "blue"))
          file (tht/sample-file-with-tokens
                :lib-fn #(-> %
                             (ctob/add-set (ctob/make-token-set :id set-id
                                                                :name set-name))
                             (ctob/add-token set-id prev-token)))
          changes (-> (pcb/empty-changes)
                      (pcb/with-library-data (:data file))
                      (pcb/set-token set-id (:id prev-token) token))

          redo (thf/apply-changes file changes)
          redo-lib (tht/get-tokens-lib redo)
          undo (thf/apply-undo-changes redo changes)
          undo-lib (tht/get-tokens-lib undo)]
      (t/is (tht/token-data-eq? token (ctob/get-token redo-lib set-id (:id token))))
      ;; Undo
      (t/is (tht/token-data-eq? prev-token (ctob/get-token undo-lib set-id (:id prev-token)))))))

(t/deftest set-token-set-test
  (t/testing "delete token set"
    (let [set-name "foo"
          set-id (uuid/next)
          file (tht/sample-file-with-tokens
                :lib-fn #(ctob/add-set % (ctob/make-token-set :id set-id :name set-name)))
          changes (-> (pcb/empty-changes)
                      (pcb/with-library-data (:data file))
                      (pcb/set-token-set set-id nil))

          redo (thf/apply-changes file changes)
          redo-lib (tht/get-tokens-lib redo)
          undo (thf/apply-undo-changes redo changes)
          undo-lib (tht/get-tokens-lib undo)]
      (t/is (not (ctob/set-path-exists? redo-lib [set-name])))
      ;; Undo
      (t/is (ctob/set-path-exists? undo-lib [set-name]))))

  (t/testing "add token set"
    (let [set-name "foo"
          set-id (uuid/next)
          token-set (ctob/make-token-set :id set-id :name set-name)
          file (tht/sample-file-with-tokens)
          changes (-> (pcb/empty-changes)
                      (pcb/with-library-data (:data file))
                      (pcb/set-token-set set-id token-set))

          redo (thf/apply-changes file changes)
          redo-lib (tht/get-tokens-lib redo)
          undo (thf/apply-undo-changes redo changes)
          undo-lib (tht/get-tokens-lib undo)]
      (t/is (not (ctob/set-path-exists? undo-lib [set-name])))
      ;; Undo
      (t/is (ctob/set-path-exists? redo-lib [set-name]))))

  (t/testing "update token set"
    (let [set-name "foo"
          set-id (uuid/next)
          token-set (ctob/make-token-set :id set-id :name set-name)
          file (tht/sample-file-with-tokens
                :lib-fn #(-> (ctob/add-set % token-set)))
          new-set-name "foo1"

          changes (-> (pcb/empty-changes)
                      (pcb/with-library-data (:data file))
                      (pcb/set-token-set set-id (ctob/rename token-set new-set-name)))

          redo (thf/apply-changes file changes)
          redo-lib (tht/get-tokens-lib redo)
          redo-token-set (ctob/get-set redo-lib set-id)

          undo (thf/apply-undo-changes redo changes)
          undo-lib (tht/get-tokens-lib undo)
          undo-token-set (ctob/get-set undo-lib set-id)]

      (t/is (= (ctob/get-name redo-token-set) new-set-name))
      ;; Undo
      (t/is (= (ctob/get-name undo-token-set) set-name)))))

;; Tokens Status

(t/deftest generate-activate-theme-test
  (t/testing "activating an inactive theme creates changes"
    (let [set-id (uuid/next)
          theme-id (uuid/next)
          file (tht/sample-file-with-tokens
                :lib-fn #(-> %
                             (ctob/add-set (ctob/make-token-set :id set-id
                                                                :name "s1"))
                             (ctob/add-theme (ctob/make-token-theme :id theme-id
                                                                    :name "t1"
                                                                    :sets #{"s1"}))))
          tokens-status (tht/get-tokens-status file)
          tokens-lib (tht/get-tokens-lib file)
          changes (-> (pcb/empty-changes)
                      (pcb/with-library-data (:data file))
                      (clt/generate-activate-theme tokens-status tokens-lib theme-id))
          file' (thf/apply-changes file changes)
          tokens-status' (tht/get-tokens-status file')
          file'' (thf/apply-undo-changes file' changes)
          tokens-status'' (tht/get-tokens-status file'')]
      ;; Redo: theme and set are active
      (t/is (ctos/theme-active? tokens-status' theme-id))
      (t/is (ctos/set-active? tokens-status' set-id))
      ;; Undo: theme and set are inactive
      (t/is (not (ctos/theme-active? tokens-status'' theme-id)))
      (t/is (not (ctos/set-active? tokens-status'' set-id)))))

  (t/testing "activating an already-active theme returns same changes"
    (let [theme-id (uuid/next)
          file (tht/sample-file-with-tokens
                :lib-fn #(-> %
                             (ctob/add-theme (ctob/make-token-theme :id theme-id
                                                                    :name "t1"
                                                                    :sets #{"s1"})))
                :status-fn #(ctos/set-tokens-status % #{theme-id} #{}))
          tokens-status (tht/get-tokens-status file)
          tokens-lib (tht/get-tokens-lib file)
          changes (-> (pcb/empty-changes)
                      (pcb/with-library-data (:data file))
                      (clt/generate-activate-theme tokens-status tokens-lib theme-id))]
      (t/is (= [] (:redo-changes changes)))
      (t/is (= [] (:undo-changes changes))))))

(t/deftest generate-deactivate-theme-test
  (t/testing "deactivating an active theme creates changes"
    (let [theme-id (uuid/next)
          file (tht/sample-file-with-tokens
                :lib-fn #(-> %
                             (ctob/add-theme (ctob/make-token-theme :id theme-id
                                                                    :name "t1"
                                                                    :sets #{})))
                :status-fn #(ctos/set-tokens-status % #{theme-id} #{}))
          tokens-status (tht/get-tokens-status file)
          tokens-lib (tht/get-tokens-lib file)
          changes (-> (pcb/empty-changes)
                      (pcb/with-library-data (:data file))
                      (clt/generate-deactivate-theme tokens-status tokens-lib theme-id))
          file' (thf/apply-changes file changes)
          tokens-status' (tht/get-tokens-status file')
          file'' (thf/apply-undo-changes file' changes)
          tokens-status'' (tht/get-tokens-status file'')]
      ;; Redo: theme is inactive
      (t/is (not (ctos/theme-active? tokens-status' theme-id)))
      ;; Undo: theme is active again
      (t/is (ctos/theme-active? tokens-status'' theme-id))))

  (t/testing "deactivating an inactive theme returns same changes"
    (let [theme-id (uuid/next)
          file (tht/sample-file-with-tokens
                :lib-fn #(-> %
                             (ctob/add-set (ctob/make-token-set :name "s1"))
                             (ctob/add-theme (ctob/make-token-theme :id theme-id
                                                                    :name "t1"
                                                                    :sets #{"s1"}))))
          tokens-status (tht/get-tokens-status file)
          tokens-lib (tht/get-tokens-lib file)
          changes (-> (pcb/empty-changes)
                      (pcb/with-library-data (:data file))
                      (clt/generate-deactivate-theme tokens-status tokens-lib theme-id))]
      (t/is (= [] (:redo-changes changes)))
      (t/is (= [] (:undo-changes changes))))))

(t/deftest generate-set-theme-status-test
  (t/testing "setting active? to true activates the theme"
    (let [theme-id (uuid/next)
          file (tht/sample-file-with-tokens
                :lib-fn #(-> %
                             (ctob/add-theme (ctob/make-token-theme :id theme-id
                                                                    :name "t1"
                                                                    :sets #{}))))
          tokens-status (tht/get-tokens-status file)
          tokens-lib (tht/get-tokens-lib file)
          changes (-> (pcb/empty-changes)
                      (pcb/with-library-data (:data file))
                      (clt/generate-set-theme-status tokens-status tokens-lib theme-id true))
          file' (thf/apply-changes file changes)
          tokens-status' (tht/get-tokens-status file')
          file'' (thf/apply-undo-changes file changes)
          tokens-status'' (tht/get-tokens-status file'')]
      ;; Redo: theme is active
      (t/is (ctos/theme-active? tokens-status' theme-id))
      ;; Undo: theme is inactive
      (t/is (not (ctos/theme-active? tokens-status'' theme-id)))))

  (t/testing "setting active? to same state returns same changes"
    (let [theme-id (uuid/next)
          file (tht/sample-file-with-tokens
                :lib-fn #(-> %
                             (ctob/add-theme (ctob/make-token-theme :id theme-id
                                                                    :name "t1"
                                                                    :sets #{}))))
          tokens-status (tht/get-tokens-status file)
          tokens-lib (tht/get-tokens-lib file)
          changes (-> (pcb/empty-changes)
                      (pcb/with-library-data (:data file))
                      (clt/generate-set-theme-status tokens-status tokens-lib theme-id false))]
      (t/is (= [] (:redo-changes changes)))
      (t/is (= [] (:undo-changes changes))))))

(t/deftest generate-toggle-theme-test
  (t/testing "toggling an active theme deactivates it"
    (let [theme-id (uuid/next)
          file (tht/sample-file-with-tokens
                :lib-fn #(-> %
                             (ctob/add-theme (ctob/make-token-theme :id theme-id
                                                                    :name "t1"
                                                                    :sets #{})))
                :status-fn #(ctos/set-tokens-status % #{theme-id} #{}))
          tokens-status (tht/get-tokens-status file)
          tokens-lib (tht/get-tokens-lib file)
          changes (-> (pcb/empty-changes)
                      (pcb/with-library-data (:data file))
                      (clt/generate-toggle-theme tokens-status tokens-lib theme-id))
          file' (thf/apply-changes file changes)
          tokens-status' (tht/get-tokens-status file')
          file'' (thf/apply-undo-changes file' changes)
          tokens-status'' (tht/get-tokens-status file'')]
      ;; Redo: theme is inactive
      (t/is (not (ctos/theme-active? tokens-status' theme-id)))
      ;; Undo: theme is active again
      (t/is (ctos/theme-active? tokens-status'' theme-id))))

  (t/testing "toggling an inexistent theme returns same changes"
    (let [theme-id (uuid/next)
          file (tht/sample-file-with-tokens
                :lib-fn #(-> %
                             (ctob/add-theme (ctob/make-token-theme :id theme-id
                                                                    :name "t1"
                                                                    :sets #{}))))
          tokens-status (tht/get-tokens-status file)
          tokens-lib (tht/get-tokens-lib file)
          changes (-> (pcb/empty-changes)
                      (pcb/with-library-data (:data file))
                      (clt/generate-toggle-theme tokens-status tokens-lib (uuid/next)))]
      (t/is (= [] (:redo-changes changes)))
      (t/is (= [] (:undo-changes changes))))))

(t/deftest generate-set-enabled-token-set-test
  (t/testing "enabling an inactive set creates changes that activate it and clear themes"
    (let [set-id (thi/new-id! :set-a)
          theme-id (uuid/next)
          file (tht/sample-file-with-tokens
                :lib-fn #(-> %
                             (ctob/add-set (ctob/make-token-set :id set-id :name "set-a"))
                             (ctob/add-theme (ctob/make-token-theme :id theme-id
                                                                    :name "theme"
                                                                    :sets #{"set-a"})))
                :status-fn #(ctos/set-tokens-status % #{theme-id} #{}))
          tokens-status (tht/get-tokens-status file)
          tokens-lib (tht/get-tokens-lib file)
          changes (-> (pcb/empty-changes)
                      (pcb/with-library-data (:data file))
                      (clt/generate-set-enabled-token-set tokens-status tokens-lib set-id true))

          redo (thf/apply-changes file changes)
          redo-status (tht/get-tokens-status redo)
          undo (thf/apply-undo-changes redo changes)
          undo-status (tht/get-tokens-status undo)]
      ;; Redo: set active, themes cleared
      (t/is (ctos/set-active? redo-status set-id))
      (t/is (= #{} (ctos/get-active-theme-ids redo-status)))
      ;; Undo: set inactive, themes restored
      (t/is (not (ctos/set-active? undo-status set-id)))
      (t/is (= #{theme-id} (ctos/get-active-theme-ids undo-status)))))

  (t/testing "enabling an already-active set returns no changes"
    (let [set-id (thi/new-id! :set-a)
          file (tht/sample-file-with-tokens
                :lib-fn #(ctob/add-set % (ctob/make-token-set :id set-id :name "set-a"))
                :status-fn #(ctos/set-tokens-status % #{} #{set-id}))
          tokens-status (tht/get-tokens-status file)
          tokens-lib (tht/get-tokens-lib file)
          changes (-> (pcb/empty-changes)
                      (pcb/with-library-data (:data file))
                      (clt/generate-set-enabled-token-set tokens-status tokens-lib set-id true))]
      (t/is (= [] (:redo-changes changes)))
      (t/is (= [] (:undo-changes changes))))))

(t/deftest generate-toggle-token-set-test
  (t/testing "toggling an active set will deactivate it"
    (let [theme-id (uuid/next)
          set-id (thi/new-id! :foo-bar)
          file (tht/sample-file-with-tokens
                :lib-fn #(-> %
                             (ctob/add-set (ctob/make-token-set :id set-id :name "foo/bar"))
                             (ctob/add-theme (ctob/make-token-theme :id theme-id
                                                                    :name "theme"
                                                                    :sets #{"foo/bar"})))
                :status-fn #(ctos/set-tokens-status % #{theme-id} #{set-id}))
          tokens-status (tht/get-tokens-status file)
          tokens-lib (tht/get-tokens-lib file)
          changes (-> (pcb/empty-changes)
                      (pcb/with-library-data (:data file))
                      (clt/generate-toggle-token-set tokens-status tokens-lib set-id))

          redo (thf/apply-changes file changes)
          redo-status (tht/get-tokens-status redo)
          undo (thf/apply-undo-changes redo changes)
          undo-status (tht/get-tokens-status undo)]
      ;; Redo: set is deactivated, all themes deactivated
      (t/is (not (ctos/set-active? redo-status set-id)))
      (t/is (= #{} (ctos/get-active-theme-ids redo-status)))
      ;; Undo: set is active again, themes restored
      (t/is (ctos/set-active? undo-status set-id))
      (t/is (= #{theme-id} (ctos/get-active-theme-ids undo-status)))))

  (t/testing "toggling an inexistent set will return no changes"
    (let [theme-id (uuid/next)
          set-id (thi/new-id! :foo-bar)
          file (tht/sample-file-with-tokens
                :lib-fn #(-> %
                             (ctob/add-set (ctob/make-token-set :id set-id :name "foo/bar"))
                             (ctob/add-theme (ctob/make-token-theme :id theme-id
                                                                    :name "theme"
                                                                    :sets #{"foo/bar"})))
                :status-fn #(ctos/set-tokens-status % #{theme-id} #{}))
          tokens-status (tht/get-tokens-status file)
          tokens-lib (tht/get-tokens-lib file)
          changes (-> (pcb/empty-changes)
                      (pcb/with-library-data (:data file))
                      (clt/generate-toggle-token-set tokens-status tokens-lib (uuid/next)))]
      (t/is (= [] (:redo-changes changes)))
      (t/is (= [] (:undo-changes changes))))))

(t/deftest generate-toggle-token-set-group-test
  (t/testing "toggling set group with no active sets inside will activate all child sets"
    (let [set-bar-id (thi/new-id! :foo-bar)
          set-baz-id (thi/new-id! :foo-bar-baz)
          set-child-id (thi/new-id! :baz-child)
          theme-id (uuid/next)
          file (tht/sample-file-with-tokens
                :lib-fn #(-> %
                             (ctob/add-set (ctob/make-token-set :id set-bar-id :name "foo/bar"))
                             (ctob/add-set (ctob/make-token-set :id set-baz-id :name "foo/bar/baz"))
                             (ctob/add-set (ctob/make-token-set :id set-child-id :name "foo/bar/baz/baz-child"))
                             (ctob/add-theme (ctob/make-token-theme :id theme-id :name "theme")))
                :status-fn #(ctos/set-tokens-status % #{theme-id} #{}))
          tokens-status (tht/get-tokens-status file)
          tokens-lib (tht/get-tokens-lib file)
          changes (-> (pcb/empty-changes)
                      (pcb/with-library-data (:data file))
                      (clt/generate-toggle-token-set-group tokens-status tokens-lib ["foo" "bar"]))

          redo (thf/apply-changes file changes)
          redo-status (tht/get-tokens-status redo)
          undo (thf/apply-undo-changes redo changes)
          undo-status (tht/get-tokens-status undo)]
      ;; Redo: all child sets activated, all themes deactivated
      (t/is (ctos/set-active? redo-status set-baz-id))
      (t/is (ctos/set-active? redo-status set-child-id))
      (t/is (= #{} (ctos/get-active-theme-ids redo-status)))
      ;; Undo: child sets deactivated, themes restored
      (t/is (not (ctos/set-active? undo-status set-baz-id)))
      (t/is (not (ctos/set-active? undo-status set-child-id)))
      (t/is (= #{theme-id} (ctos/get-active-theme-ids undo-status)))))

  (t/testing "toggling an inexistent set group will return no changes"
    (let [set-bar-id (thi/new-id! :foo-bar)
          set-baz-id (thi/new-id! :foo-bar-baz)
          set-child-id (thi/new-id! :baz-child)
          theme-id (uuid/next)
          file (tht/sample-file-with-tokens
                :lib-fn #(-> %
                             (ctob/add-set (ctob/make-token-set :id set-bar-id :name "foo/bar"))
                             (ctob/add-set (ctob/make-token-set :id set-baz-id :name "foo/bar/baz"))
                             (ctob/add-set (ctob/make-token-set :id set-child-id :name "foo/bar/baz/baz-child"))
                             (ctob/add-theme (ctob/make-token-theme :id theme-id
                                                                    :name "theme"
                                                                    :sets #{"foo/bar/baz"})))
                :status-fn #(ctos/set-tokens-status % #{theme-id} #{set-baz-id}))

          tokens-status (tht/get-tokens-status file)
          tokens-lib (tht/get-tokens-lib file)
          changes (-> (pcb/empty-changes)
                      (pcb/with-library-data (:data file))
                      (clt/generate-toggle-token-set-group tokens-status tokens-lib ["foo" "nonexistent"]))]
      (t/is (= [] (:redo-changes changes)))
      (t/is (= [] (:undo-changes changes))))))

(t/deftest generate-sync-tokens-status-with-lib-test
  (t/testing "sync removes stale theme and set ids from status"
    (let [stale-theme-id (uuid/next)
          stale-set-id (uuid/next)
          file (tht/sample-file-with-tokens
                :lib-fn identity
                :status-fn #(ctos/set-tokens-status % #{stale-theme-id} #{stale-set-id}))
          tokens-status (tht/get-tokens-status file)
          tokens-lib (tht/get-tokens-lib file)
          changes (-> (pcb/empty-changes)
                      (pcb/with-library-data (:data file))
                      (clt/generate-sync-tokens-status-with-lib tokens-status tokens-lib))
          file' (thf/apply-changes file changes)
          tokens-status' (tht/get-tokens-status file')
          file'' (thf/apply-undo-changes file' changes)
          tokens-status'' (tht/get-tokens-status file'')]
      ;; Redo: stale ids are removed
      (t/is (= #{} (ctos/get-active-theme-ids tokens-status')))
      (t/is (= #{} (ctos/get-active-set-ids tokens-status')))
      ;; Undo: stale ids are restored
      (t/is (= #{stale-theme-id} (ctos/get-active-theme-ids tokens-status'')))
      (t/is (= #{stale-set-id} (ctos/get-active-set-ids tokens-status'')))))

  (t/testing "sync with status already in sync returns same changes"
    (let [theme-id (uuid/next)
          set-id (uuid/next)
          file (tht/sample-file-with-tokens
                :lib-fn #(-> %
                             (ctob/add-set (ctob/make-token-set :id set-id :name "s1"))
                             (ctob/add-theme (ctob/make-token-theme :id theme-id
                                                                    :name "t1"
                                                                    :sets #{"s1"})))
                :status-fn #(ctos/set-tokens-status % #{theme-id} #{set-id}))
          tokens-status (tht/get-tokens-status file)
          tokens-lib (tht/get-tokens-lib file)
          changes (-> (pcb/empty-changes)
                      (pcb/with-library-data (:data file))
                      (clt/generate-sync-tokens-status-with-lib tokens-status tokens-lib))]
      (t/is (= [] (:redo-changes changes)))
      (t/is (= [] (:undo-changes changes))))))