tests/testthat/test_Rearrangement.R

In cancer-genomics/trellis: Somatic structural variant analysis

context("Rearrangement")

test_that("improper<-", {
  data(rear_list, package="trellis")
  r <- rear_list[[1]]
  orig <- improper(r)
  expect_equivalent(length(orig), 26)
  sub <- orig[1:2]
  improper(r) <- sub
  expect_equivalent(improper(r), sub)
})