Add clear method for Cache.

Change-Id: Ic9407795088cc063a8be0bdbd75e70316346c19f

src/main/om/next/cache.cljs

@@ -10,7 +10,11 @@
         (swap! index assoc id x')))
     (.push arr id))
   (get [this id]
-    (get @index id)))
+    (get @index id))
+  (clear [this]
+    (reset! (.-index this) {})
+    (set! (.-arr this) #js [])
+    this))
 
 (defn cache [size]
   (Cache. #js [] (atom {}) size))

src/test/om/next/tests.cljc

@@ -1011,6 +1011,26 @@
     (is (not (contains? (get t-err 'this/throws) :result)))
     (is (= (get (om/transact! r '[(this/throws) :app/count]) :app/count) 2))))
 
+(deftest test-cache-clear
+  (let [r (om/reconciler {:state (atom {:app/count 0})
+                          :parser p})
+        h (get-in r [:config :history])]
+    (is (= 0 (count @(.-index h))))
+    (is (= 0 (count (.-arr h))))
+    (om/transact! r '[(app/inc!)])
+    (let [h (get-in r [:config :history])]
+      (is (= 1 (count @(.-index h))))
+      (is (= 1 (count (.-arr h)))))
+    (let [r' (update-in r [:config :history] #(.clear %))
+          h' (get-in r' [:config :history])]
+      (is (= {} @(.-index h')))
+      (is (= 0 (count (.-arr h'))))
+      (is (= [] (js->clj (.-arr h')))))
+    (om/transact! r '[(app/inc!)])
+    (let [h (get-in r [:config :history])]
+      (is (= 1 (count @(.-index h))))
+      (is (= 1 (count (.-arr h)))))))
+
 ;; -----------------------------------------------------------------------------
 ;; Recursive Parsing