tests/testthat/test-utils.R

In jvfe/go2cell: Get Cell Types Related to Gene Ontology IDs

to_collapse <- c(rep(c("GO:0006936", "GO:0008152"), 7))
to_collapse_single <- "GO:0006936"

to_clean <- c("http://www.wikidata.org/entity/Q18031649", "http://www.wikidata.org/entity/Q227339")

test_that("basic collapsing works", {
  vec_collapsed <- .collapse_as_values(to_collapse)
  single_collapsed <- .collapse_as_values(to_collapse_single)

  expect_equal(vec_collapsed, "(GO:0006936) (GO:0008152)")
  expect_equal(single_collapsed, "(GO:0006936)")
})

test_that("quoted collapsing works", {
  vec_collapsed <- .collapse_as_values(to_collapse, quotes = TRUE)
  single_collapsed <- .collapse_as_values(to_collapse_single, quotes = TRUE)

  expect_equal(vec_collapsed, "('GO:0006936') ('GO:0008152')")
  expect_equal(single_collapsed, "('GO:0006936')")
})

test_that("URL removal works", {
  clean <- .remove_wdt_url(to_clean)

  expect_equal(clean, c("wd:Q18031649", "wd:Q227339"))
})

test_that("Species key-value works", {
  species1 <- "Homo sapiens"
  species2 <- "Mus musculus"

  expect_equal(.get_species_item(species1), "Q15978631")
  expect_equal(.get_species_item(species2), "Q83310")
})

test_that("Not supported species returns error", {
  species <- "Sus scrofa"

  expect_error(.get_species_item(species))
})