Move sync code to shared

src/test/grub/test/unit/state.clj

@@ -1,56 +0,0 @@
-(ns grub.test.unit.state
-  (:require [grub.state :as s]
-            [grub.common-state :as cs]
-            [clojure.test :refer :all]
-            [hasch.core :as hasch]))
-
-(deftest apply-diff-normally
-  ;; Apply changes and return ACK for in sync client/server
-  (let [state {:grubs {"1" {:text "2 apples" :completed false}}
-               :recipes {}}
-        hash (hasch/uuid state)
-        states [{:hash hash :state state}]
-        diff {:grubs {:updated {"1" {:completed true}} :deleted #{}}}
-        shadow-hash hash
-        {:keys [new-state new-shadow full-sync?]} (s/receive-diff states diff shadow-hash)]
-    (do 
-      (is (= {:grubs {"1" {:text "2 apples" :completed true}}
-              :recipes {}}
-             new-state))
-      (is (= {:grubs {"1" {:text "2 apples" :completed true}}
-              :recipes {}}
-             new-shadow))
-      (is (not full-sync?)))))
-
-(deftest server-state-changed
-  ;; Send differences back if server state changed
-  (let [state {:grubs {"1" {:text "3 apples" :completed false}} :recipes {}}
-        prev {:grubs {"1" {:text "2 apples" :completed false}} :recipes {}}
-        states [{:hash (hasch/uuid state) :state state}
-                {:hash (hasch/uuid prev) :state prev}]
-        diff {:grubs {:updated {"1" {:completed true}} :deleted #{}}}
-        shadow-hash (hasch/uuid prev)
-        {:keys [new-state new-shadow full-sync?]} (s/receive-diff states diff shadow-hash)]
-    (do 
-      (is (= {:grubs {"1" {:text "3 apples" :completed true}}
-              :recipes {}}
-             new-state))
-      (is (= {:grubs {"1" {:text "2 apples" :completed true}}
-              :recipes {}}
-             new-shadow))
-      (is (not full-sync?)))))
-
-(deftest full-sync-if-client-too-far-out-of-sync
-  ;; Shadow hash not in history means client has fallen too far
-  ;; out of sync. Send a full sync
-  (let [state {:grubs {"1" {:text "2 apples" :completed false}} :recipes {}}
-        prev {:grubs {"1" {:text "2 apples" :completed false}} :recipes {}}
-        states [{:hash (hasch/uuid state) :state state}
-                {:hash (hasch/uuid prev) :state prev}]
-        shadow-hash (hasch/uuid {:grubs {} :recipes {}})
-        diff {:grubs {:updated {"1" {:completed true}} :deleted #{}}}
-        {:keys [new-state new-shadow full-sync?]} (s/receive-diff states diff shadow-hash)]
-    (do 
-      (is (= state new-state))
-      (is (= state new-shadow))
-      (is full-sync?))))

src/test/grub/test/unit/sync.clj

@@ -3,7 +3,30 @@
             [clojure.test :refer :all]
             [hasch.core :as hasch]))
 
-(deftest apply-diff-normally
+(deftest initial-state
+  (let [grubs [{:id "1" :text "2 bananas" :completed false}
+               {:id "2" :text "3 onions" :completed false}]
+        recipes []
+        expected-state {:grubs {"1" {:id "1" :text "2 bananas" :completed false}
+                                "2" {:id "2" :text "3 onions" :completed false}}
+                        :recipes {}}
+        expected-hash (hasch/uuid expected-state)]
+    (is (= [{:state expected-state :hash expected-hash}] (s/initial-state grubs recipes)))))
+
+(deftest get-current-state-returns-last-state
+  (let [states [{:hash "asdf" :state {:a :b}}
+                {:hash "fdsa" :state {:c :d}}]]
+    (is (= {:c :d} (s/get-current-state states)))))
+
+(deftest get-history-state-returns-state-with-hash
+  (let [states [{:hash "hash1" :state {:a :b}}
+                {:hash "hash2" :state {:c :d}}
+                {:hash "hash3" :state {:e :f}}]]
+    (is (= {:a :b} (s/get-history-state states "hash1")))
+    (is (= {:c :d} (s/get-history-state states "hash2")))
+    (is (= {:e :f} (s/get-history-state states "hash3")))))
+
+(deftest apply-diff-no-changes
   ;; Apply changes and return ACK for in sync client/server
   (let [state {:grubs {"1" {:text "2 apples" :completed false}}
                :recipes {}}
@@ -11,7 +34,7 @@
         states [{:hash hash :state state}]
         diff {:grubs {:updated {"1" {:completed true}} :deleted #{}}}
         shadow-hash hash
-        {:keys [new-states new-shadow full-sync?]} (s/receive-diff states diff shadow-hash)]
+        {:keys [new-states new-shadow full-sync?]} (s/apply-diff states diff shadow-hash)]
     (do 
       (is (= {:grubs {"1" {:text "2 apples" :completed true}}
               :recipes {}}
@@ -21,7 +44,7 @@
              new-shadow))
       (is (not full-sync?)))))
 
-(deftest server-state-changed
+(deftest apply-diff-server-state-changed
   ;; Send differences back if server state changed
   (let [state {:grubs {"1" {:text "3 apples" :completed false}} :recipes {}}
         prev {:grubs {"1" {:text "2 apples" :completed false}} :recipes {}}
@@ -29,7 +52,7 @@
                 {:hash (hasch/uuid prev) :state prev}]
         diff {:grubs {:updated {"1" {:completed true}} :deleted #{}}}
         shadow-hash (hasch/uuid prev)
-        {:keys [new-states new-shadow full-sync?]} (s/receive-diff states diff shadow-hash)]
+        {:keys [new-states new-shadow full-sync?]} (s/apply-diff states diff shadow-hash)]
     (do 
       (is (= {:grubs {"1" {:text "3 apples" :completed true}}
               :recipes {}}
@@ -39,7 +62,7 @@
              new-shadow))
       (is (not full-sync?)))))
 
-(deftest full-sync-if-client-too-far-out-of-sync
+(deftest apply-diff-client-out-of-sync
   ;; Shadow hash not in history means client has fallen too far
   ;; out of sync. Send a full sync
   (let [state {:grubs {"1" {:text "2 apples" :completed false}} :recipes {}}
@@ -48,7 +71,7 @@
                 {:hash (hasch/uuid prev) :state prev}]
         shadow-hash (hasch/uuid {:grubs {} :recipes {}})
         diff {:grubs {:updated {"1" {:completed true}} :deleted #{}}}
-        {:keys [new-states new-shadow full-sync?]} (s/receive-diff states diff shadow-hash)]
+        {:keys [new-states new-shadow full-sync?]} (s/apply-diff states diff shadow-hash)]
     (do 
       (is (= state (:state (last new-states))))
       (is (= state new-shadow))