tests/testthat/test-files.R

In GencoDymo2: Comprehensive Analysis of 'GENCODE' Annotations and Splice Site Motifs

# Inside the file tests/testthat/test-get_latest_release.R
test_that("get_latest_release works for human species", {
  result <- get_latest_release("human", verbose = FALSE)
  expect_match(result, "^release_\\d+$")  # Check if the result matches a release format like "release_42"
})

test_that("get_latest_release throws an error for invalid species", {
  expect_error(get_latest_release("dog"), "Invalid species. Please use 'human' or 'mouse'.")
})