tests/testthat/test-get-IRI.R

context("finding terms")

test_that("Test that anatomy_ontology_iris doesn't return PATO or ZP", {
  skip_on_cran()
  iris <- anatomy_ontology_iris()
  expect_false("http://purl.obolibrary.org/obo/pato.owl" %in% iris)
  expect_false("http://purl.obolibrary.org/obo/zp.owl" %in% iris)
})
phenoscape/rphenoscape documentation built on Nov. 1, 2024, 3:49 a.m.