Adding dumping to disk

ifesdjeen · Oct 31, 2012 · 4a383d0 · 4a383d0
1 parent 05d39c2
commit 4a383d0
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 4 deletions.
diff --git a/src/vcr_clj/recorder.clj b/src/vcr_clj/recorder.clj
@@ -27,8 +27,11 @@
 
   (get-all
     [_]
-    store-map))
+    store-map)
+
+  (dump-tp-disk! [_ options]
+    (some #(= options %) (keys @store-map))))
 
 (defn vcr-memory-store
   ([] (vcr-memory-store (atom {})))
-  ([s] (VcrMemoryStore. s)))
+  ([s] (VcrMemoryStore. s)))
diff --git a/test/vcr_clj/recorder_test.clj b/test/vcr_clj/recorder_test.clj
@@ -12,10 +12,8 @@
     (record-request! store :k "value")
     (is (request-recorded? store :k))))
 
-
 (deftest request-recorded-test
   (let [store (vcr-memory-store)]
     (record-request! store :k "value")
     (clear-recorded! store)
     (is (= @(get-all store) {}))))
-