tests/testthat/test-parse_spliceai.R

In TRON-Bioinformatics/splice2neo: Aberrant splice junction analysis with associated mutations

test_that("parse_spliceai works on SpliceAI example file", {

  spliceai_file <- system.file("extdata", "spliceai_output.vcf", package = "splice2neo")
  df <- parse_spliceai(spliceai_file)

  expect_true(nrow(df) >= 10)

})

test_that("parse_spliceai_thresh works on SpliceAI example file", {

  spliceai_file <- system.file("extdata", "spliceai_thresh_output.vcf", package = "splice2neo")
  df <- parse_spliceai_thresh(spliceai_file)

  expect_true(nrow(df) >= 10)

})