 
 (defn- triggered-by-snapshot-deps [{build :build}]
   (map (fn [{number :number {name :name projectName :projectName} :buildType}]
-         {:job-name (job-name {:project-name projectName
-                               :job-name name})
+         {:job-name (full-job-name projectName name)
           :build-id number})
        build))
 

             [coerce :as tc]
             [format :as tf]]))

(defn- job-name [{:keys [project-name job-name]}]
  (format "%s %s" project-name job-name))



                 :children (map #(dissoc % :suite) tests)}))
         seq)))

(defn teamcity-build->buildviz-build [{:keys [build tests project-name job-name]}]
  {:job-name (full-job-name project-name job-name)
   :build-id (:number build)
   :build (convert-build build)
   :test-results (convert-test-results tests)})
