tests/testthat/test-liftover_junc_id.R

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

test_that("liftover_junc_id works on toy example data", {

  chain_file = system.file(package="liftOver", "extdata", "hg38ToHg19.over.chain")
  stopifnot(chain_file != "")

  junc_df <- toy_junc_df

  junc_df_lifted <- liftover_junc_id(junc_df, chain_file)

  expect_equal(nrow(junc_df_lifted), nrow(junc_df))
  expect_true(all(c("junc_id_lifted_is_unique", "junc_id_lifted") %in% names(junc_df_lifted)))

})



test_that("liftover_junc_id works with non-unique mappings", {

  chain_file = system.file(package="liftOver", "extdata", "hg38ToHg19.over.chain")
  stopifnot(chain_file != "")

  junc_df <- toy_junc_df %>%
    head(3) %>%
    add_row(junc_id = "chr2:10000000-10050000:-") %>%
    add_row(junc_id = "chr7:123-456:+")

  junc_df_lifted <- liftover_junc_id(junc_df, chain_file)

  expect_equal(nrow(junc_df_lifted), nrow(junc_df))
  expect_false(all(junc_df_lifted$junc_id_lifted_is_unique))
  expect_true(all(junc_df_lifted$junc_id_lifted_is_unique[1:3]))
  expect_true(any(is.na(junc_df_lifted$junc_id_lifted)))

})