   (-> job-descr
       dt/load-speech-recognition-results
       dt/analyze-speech-recognition-results
-      dt/load-categories))
+      dt/load-categories
+      dt/analyze-categories))
 
 (defn test-index []
   (let [job (-> job-descr
                 dt/load-speech-recognition-results
                 dt/analyze-speech-recognition-results
-                dt/load-categories)]
+                dt/load-categories
+                dt/analyze-categories)]
     (dt/trace-block
      "Index run"
      (dt/prepare-output-dir job)


(defn test-categories []
  (-> job-descr
      dt/load-categories))

(defn test-resources []
  (dt/prepare-output-dir job-descr))

  (let [job (-> job-descr
                dt/load-speech-recognition-results
                dt/analyze-speech-recognition-results
                dt/load-categories
                dt/analyze-categories)]
    (dt/trace-block
     "Complete run"
     (dt/prepare-output-dir job)
