tests/testthat/test-parse_fobi.R

In pcastellanoescuder/fobibsa: Tools for Manipulating the FOBI Ontology

context("parse_fobi")

test_that("parse_fobi works", {
  
  a <- fobitools::parse_fobi(terms = "FOODON:00002473")
  b <- fobitools::parse_fobi(terms = "FOBI:01501")
  c <- fobitools::parse_fobi(terms = "FOBI:0001")
  d <- fobitools::parse_fobi()
  e <- fobitools::parse_fobi(terms = c("FOODON:00002473", "CHEBI:10219"))
  
  f <- fobitools::parse_fobi(terms = "FOODON:00002473", get = "anc")
  g <- fobitools::parse_fobi(terms = "FOODON:00002473", get = "des")
    
  ##
  
  expect_equal(ncol(a), ncol(b))
  expect_equal(ncol(b), ncol(c))
  expect_equal(ncol(c), ncol(d))
  expect_equal(ncol(f), ncol(g))
  
  ##
  
  expect_true(class(a)[2] == "tbl")
  expect_true(class(b)[2] == "tbl")
  expect_true(class(c)[2] == "tbl")
  expect_true(class(d)[2] == "tbl")
  
  expect_true(class(e)[2] == "tbl")
  expect_true(class(f)[2] == "tbl")
  expect_true(class(g)[2] == "tbl")
  
  ##
  
  expect_true(nrow(e) > nrow(a))
  expect_true(nrow(a) < nrow(d))
  expect_true(nrow(b) < nrow(d))
  expect_true(nrow(c) < nrow(d))
  expect_true(nrow(f) > nrow(g))
  
  ##
  
  nuts_id <- "FOBI:0135"
  expect_true(nuts_id %in% c$id_code)
  
  alkaloids_id <- "FOBI:040010"
  expect_true(alkaloids_id %in% b$id_code)
  
  ##
  
  expect_error(fobitools::parse_fobi(terms = "FOODON:00002473", get = "ances"))
  expect_error(fobitools::parse_fobi(terms = "FOODON:000024736666", get = "anc"))
  expect_error(fobitools::parse_fobi(get = "anc"))
  
})