                  :children (map #(dissoc % :suite) tests)}))
          seq)))
 
-(defn teamcity-build->buildviz-build [{:keys [build tests] :as build-info}]
-  {:job-name (job-name build-info)
+(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)})

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

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




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

