                       :extensions [".htm"])
         (testing "word-count"
           (value-test :path "hammock/test.htm"
-                      :value-fn #(meta= %1 %2 :word-count 19)
+                      :value-fn #(meta= %1 %2 :word-count 22)
                       :msg "`word-count` should set `:word-count` metadata"))
 
         (p/gravatar :source-key :email

  [data]
  (str "<body>" (:content (:entry data)) "</body>"))

(deftesttask default-tests []
  (comp (add-txt-file :path "2017-01-01-test.md" :content md-content)
        (boot/with-pre-wrap fileset
          (pm/set-global-meta fileset {:base-url "http://example.com/"
                                       :site-title "Test Title"

        (testing "atom-feed"
          (file-exists? :path "foo/test-atom.xml"
                        :msg "`atom-feed` should write test-atom.xml"))

        (add-txt-file :path "test2.md" :content (nth input-strings 3))
        (add-txt-file :path "test3.md" :content (nth input-strings 4))
        (add-txt-file :path "test4.md" :content (nth input-strings 5))
        (add-txt-file :path "test5.md" :content (nth input-strings 6))
        (p/markdown :meta {:assorting true}
                    :out-dir "assorting")
        (sift :move {#"assorting/(.*)\.html" "assorting/$1.htm"})

        (p/assortment :renderer 'io.perun-test/render-assortment
                      :out-dir "foo"
                      :grouper (fn [entries]
                                 (reduce (fn [paths {:keys [baz tags] :as entry}]
                                           (let [path (str baz "-" (first tags) ".html")]
                                             (if (and (not (nil? baz)) (seq tags))
                                               (update-in paths [path :entries] conj entry)
                                               paths)))
                                         {}
                                         entries))
                      :filterer :assorting
                      :extensions [".htm"]
                      :sortby :order
                      :comparator #(compare %1 %2)
                      :meta {:assorted "yep"})
        (testing "assortment"
          (content-test :path "foo/true-tag1.html"
                        :content "assortment 1")
          (content-test :path "foo/true-tag2.html"
                        :content "assortment 1")
          (content-test :path "foo/false-tag1.html"
                        :content "assortment 2")
          (value-test :path "foo/true-tag1.html"
                      :value-fn #(meta= %1 %2 :assorted "yep"))
          (value-test :path "foo/true-tag2.html"
                      :value-fn #(meta= %1 %2 :assorted "yep"))
          (value-test :path "foo/false-tag1.html"
                      :value-fn #(meta= %1 %2 :assorted "yep")))

        (p/collection :renderer 'io.perun-test/render-collection
                      :out-dir "bar"
                      :filterer :baz
                      :extensions [".htm"]
                      :sortby :order
                      :comparator #(compare %1 %2)
                      :page "its-a-collection.html"
                      :meta {:collected "uh huh"})
        (testing "collection"
          (content-test :path "bar/its-a-collection.html"
                        :content "collection 2")
          (value-test :path "bar/its-a-collection.html"
                      :value-fn #(meta= %1 %2 :collected "uh huh")))

        (p/render :renderer 'io.perun-test/render
                  :filterer :markdown-set
