tests that redef state

blog_expectations.clj

(ns blog-expectations
  (:use expectations
        [blog :as b]))

(expect {"CNN" {:src "CNN" :headline "Election Update"}
         "NY Times" {:src "NY Times" :headline "Movie Guide"}}
        (with-redefs [b/all-updates (atom {})
                      b/last-update (atom {})]
          (b/process-update {:src "NY Times" :headline "Market News"})
          (b/process-update {:src "CNN" :headline "Election Update"})
          (b/process-update {:src "NY Times" :headline "Movie Guide"})
          @last-update))

(expect {"CNN" [{:src "CNN", :headline "Election Update"}]
         "NY Times" [{:src "NY Times", :headline "Movie Guide"}
                     {:src "NY Times", :headline "Market News"}]}
        (with-redefs [b/all-updates (atom {})
                      b/last-update (atom {})]
          (b/process-update {:src "NY Times" :headline "Market News"})
          (b/process-update {:src "CNN" :headline "Election Update"})
          (b/process-update {:src "NY Times" :headline "Movie Guide"})
          @all-updates))