                           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 []))))

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

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

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

(deftest ^:postgres validate-name-test
  (testing "missing Name is a fatal error"
