   [dldir]
   (let [ress (mapcat (fn [c] (map #(vector (:type %) (:url %))
                                   (:resources c)))
-                     (:categories distillery.core-test/job-descr))]
+                     (:categories ct/job-descr))]
     (doseq [[typ url] ress]
       (let [url* (java.net.URL. url)
             p (.getPath url*)]

  ;(:require [mastersign.wordcloud-test])
  ;(:require [distillery.data :refer :all])
  ;(:require [distillery.tasks :refer :all])
  (:require [distillery.core-test])
  )

;(run-tests 'mastersign.wordcloud-test)

;(distillery.core-test/test-playground)

;(distillery.core-test/test-resources)

;(distillery.core-test/test-analyze)

;(distillery.core-test/test-categories)

;(distillery.core-test/test-index)

;(distillery.core-test/test-complete)

;(distillery.core-test/test-show-main-page)

; -----------------


  [dldir]
  (intern 'distillery.core-test 'job-descr
    (update-in
     ct/job-descr [:categories]
     (fn [cats]
       (vec (map
             (fn [cat]
