(ns app.components-sync-test
  (:require
   [app.common.colors :as clr]
   [app.common.data :as d]
   [app.common.geom.point :as gpt]
   [app.main.data.workspace.changes :as dwc]
   [app.main.data.workspace.libraries :as dwl]
   [app.main.data.workspace.libraries-helpers :as dwlh]
   [app.test-helpers.events :as the]
   [app.test-helpers.libraries :as thl]
   [app.test-helpers.pages :as thp]
   [beicon.core :as rx]
   [cljs.pprint :refer [pprint]]
   [cljs.test :as t :include-macros true]
   [linked.core :as lks]
   [potok.core :as ptk]))

(t/use-fixtures :each
  {:before thp/reset-idmap!})

(t/deftest test-touched
  (t/async done
    (try
      (let [state (-> thp/initial-state
                      (thp/sample-page)
                      (thp/sample-shape :shape1 :rect
                                        {:name "Rect 1"
                                         :fill-color clr/white
                                         :fill-opacity 1})
                      (thp/make-component :instance1
                                          [(thp/id :shape1)]))

            shape1    (thp/get-shape state :shape1)
            instance1 (thp/get-shape state :instance1)

            update-shape (fn [shape]
                           (merge shape {:fill-color clr/test
                                         :fill-opacity 0.5}))

            store (the/prepare-store state done
             (fn [new-state]
               (let [shape1 (thp/get-shape new-state :shape1)

                     [[group shape1] [c-group c-shape1] component]
                     (thl/resolve-instance-and-main
                       new-state
                       (:id instance1))

                     file (dwlh/get-local-file new-state)]

                 (t/is (= (:fill-color shape1) clr/test))
                 (t/is (= (:fill-opacity shape1) 0.5))
                 (t/is (= (:touched shape1) #{:fill-group}))
                 (t/is (= (:fill-color c-shape1) clr/white))
                 (t/is (= (:fill-opacity c-shape1) 1))
                 (t/is (= (:touched c-shape1) nil)))))]

        (ptk/emit!
          store
          (dwc/update-shapes [(:id shape1)] update-shape)
          :the/end)))))

(t/deftest test-reset-changes
  (t/async done
    (try
      (let [state (-> thp/initial-state
                      (thp/sample-page)
                      (thp/sample-shape :shape1 :rect
                                        {:name "Rect 1"
                                         :fill-color clr/white
                                         :fill-opacity 1})
                      (thp/make-component :instance1
                                          [(thp/id :shape1)]))

            shape1    (thp/get-shape state :shape1)
            instance1 (thp/get-shape state :instance1)

            update-shape (fn [shape]
                           (merge shape {:fill-color clr/test
                                         :fill-opacity 0.5}))

            store (the/prepare-store state done
              (fn [new-state]
                (let [shape1 (thp/get-shape new-state :shape1)

                      [[group shape1] [c-group c-shape1] component]
                      (thl/resolve-instance-and-main
                        new-state
                        (:id instance1))

                      file (dwlh/get-local-file new-state)]

                  (t/is (= (:fill-color shape1) clr/white))
                  (t/is (= (:fill-opacity shape1) 1))
                  (t/is (= (:touched shape1) nil))
                  (t/is (= (:fill-color c-shape1) clr/white))
                  (t/is (= (:fill-opacity c-shape1) 1))
                  (t/is (= (:touched c-shape1) nil)))))]

        (ptk/emit!
          store
          (dwc/update-shapes [(:id shape1)] update-shape)
          (dwl/reset-component (:id instance1))
          :the/end)))))