mime-type-test

src/weller/filters.clj

@@ -87,8 +87,7 @@
 (defn content-changed?
   "Checks if an event represents a content update (i.e. file updated) of a *cm:content* node in the repository."
   []
-  (partial #(let [
-                  content (get-in % [:data :resource :content])
+  (partial #(let [content (get-in % [:data :resource :content])
                   content-before (get-in % [:data :resource-before :content])]
               (if-not (or (nil? content) (nil? content-before))
                 (and
@@ -114,7 +113,7 @@
   [mime-type]
   (partial #(let [resource (get-in % [:data :resource])]
               (and
-                (= (:node-type resource) (name cm/type-content))
+                (:is-file resource)
                 (= (get-in resource [:content :mime-type]) mime-type)))))
 
 (defn node-aspect?

test/weller/filters_test.clj

@@ -61,4 +61,11 @@
         handler (handler/make-handler (filters/content-changed?) #(deliver result %))]
     (tu/create-then-update-then-delete-node)
     (not (nil? @result))
+    (component/stop handler)))
+
+(deftest mime-type-test
+  (let [result (promise)
+        handler (handler/make-handler (filters/mime-type? "text/plain") #(deliver result %))]
+    (tu/create-then-update-then-delete-node)
+    (is (= (get-in @result [:content :mime-type]) "text/plain"))
     (component/stop handler)))