 
 (defn system-integration-test?
   [test-ns]
-  (re-find #"system-int-test" (str test-ns)))
+  (re-find #"system-int-test" test-ns))
 
 (defn integration-test-ns->compare-value
   "The comparator function to use for sorting integration tests. We want system integration tests

  (let [map-fn (if parallel? pmap map)]
    (map-fn (fn [test-ns]
              (taoensso.timbre/set-level! :warn)
              (let [[millis results] (u/time-execution (t/run-tests test-ns))]
                (assoc results
                       :took millis
                       :test-ns test-ns)))

  'test' that is not an integration test namespace is considered a unit test namespace."
  (set/difference
    (->> (all-ns)
         (map str)
         (filter #(re-find #"cmr\..*test" %))
         set)
    (set integration-test-namespaces)))

