tests/testthat/test_is_gtf.R

In fursham-h/factR: Functional Annotation of Custom Transcriptomes

context("Test is_gtf function")

data(query_gtf, query_exons)

test_that("Test the value of outputs", {
  expect_equal(is_gtf(query_gtf), TRUE)
  expect_equal(is_gtf(query_exons[1]), FALSE)
  expect_equal(is_gtf(query_exons[[1]]), FALSE)
  expect_equal(is_gtf(data.frame("name" = "Me")), FALSE)
})