                           xml/load-xml-ltree
                           v5.source/validate-vip-id-valid-fips]}
           out-ctx (pipeline/run-pipeline ctx)]
-      (is (not (:critical out-ctx)))))
+      (assert-no-problems out-ctx [])))
   (testing "invalid 5-digit FIPS in VipId is a critical error"
     (let [ctx {:input (xml-input "v5-source-vip-id-invalid-5-digit-fips.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)))))
  (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))))))

(deftest ^:postgres validate-vip-id-test
  (testing "missing VipId is a fatal error"

                          xml/load-xml-ltree
                          v5.source/validate-name]}
          out-ctx (pipeline/run-pipeline ctx)]
      (assert-no-problems out-ctx [])))
  (testing "Name present is OK even if it's not first"
    (let [ctx {:input (xml-input "v5-source-second-with-name-second.xml")
               :pipeline [psql/start-run
                          xml/load-xml-ltree
                          v5.source/validate-name]}
          out-ctx (pipeline/run-pipeline ctx)]
      (assert-no-problems out-ctx []))))

(deftest ^:postgres validate-date-time-test
  (testing "missing DateTime is a fatal error"
