       (.put "start-latch" start-latch)
       (.put "done-latch" done-latch)
       (.put "test-number" (count test-commands))
-      ;; (.put "test-command") ;; set in runboot-comp as it is on a per-test basis
+      ;; (.put "test-command") ;; AR - set in per-task-sync-map cause on a per-test basis
       (.put "test-summaries" (ConcurrentHashMap.)))))
 
 (defn per-task-sync-map

  are thread safe."
  [sync-map command-seq]
  (Collections/unmodifiableMap
   (let [command-str (string/join " " command-seq)]
     (doto (.clone sync-map)
       (.put "test-command-str" command-str)
       #(-> (get % "test-summaries")


;; test helpers ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defn command-str
  "Given a seq of command segments, the input to the runboot task,
  return its string representation. Useful for Java interop, for example
  it can be key in a HashMap."
  [command-seq]
  (string/join " " command-seq))

(defn initial-sync-map
  "Generates the (mutable) sync map necessary for the test task.
  This map will be modified during parallel testing so make sure the
