tests that use 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"}}
  (redef-state [blog]
    (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"}]}
  (redef-state [blog]
    (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))