diff --git a/src/vcr_clj/recorder.clj b/src/vcr_clj/recorder.clj index 1acfc45..b04b768 100644 --- 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))) \ No newline at end of file + ([s] (VcrMemoryStore. s))) diff --git a/test/vcr_clj/recorder_test.clj b/test/vcr_clj/recorder_test.clj index d3cd938..ec57564 100644 --- 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) {})))) -