                           xml/load-xml-ltree
                           v5.source/validate-date-time]}
           out-ctx (pipeline/run-pipeline ctx)]
-      (is (not (:fatal out-ctx)))))
+      (assert-no-problems out-ctx [])))
   (testing "DateTime present is OK even if it's not first"
     (let [ctx {:input (xml-input "v5-source-second-with-date-time-second.xml")
                :pipeline [psql/start-run
                           xml/load-xml-ltree
                           v5.source/validate-date-time]}
           out-ctx (pipeline/run-pipeline ctx)]
-      (is (not (:fatal out-ctx))))))
+      (assert-no-problems out-ctx []))))
 
 (deftest ^:postgres validate-vip-id-test
   (testing "missing VipId is a fatal error"

                          xml/load-xml-ltree
                          v5.source/validate-vip-id-valid-fips]}
          out-ctx (pipeline/run-pipeline ctx)]
      (is (not (:critical out-ctx))))))

                          xml/load-xml-ltree
                          v5.source/validate-vip-id]}
          out-ctx (pipeline/run-pipeline ctx)]
      (assert-no-problems out-ctx []))))

(deftest ^:postgres validate-vip-id-valid-fips-test
  (testing "invalid 2-digit FIPS in VipId is a critical error"
