tests/testthat/test_window.r

In jayhesselberth/valr: Genome Interval Arithmetic

genome <- tibble::tribble(
  ~chrom, ~size,
  "chr1", 5000,
  "chr2", 10000
)

x <- tibble::tribble(
  ~chrom, ~start, ~end, ~name, ~score, ~strand,
  "chr1", 500, 1000, ".", ".", "+",
  "chr1", 1000, 1500, ".", ".", "-",
  "chr2", 1000, 1200, ".", ".", "-"
)

y <- tibble::tribble(
  ~chrom, ~start, ~end, ~name, ~score, ~strand,
  "chr1", 400, 450, ".", ".", "+",
  "chr1", 1000, 1200, ".", ".", "-",
  "chr1", 1100, 1500, ".", ".", "+",
  "chr2", 1300, 1500, ".", ".", "-"
)

test_that("both arg works", {
  out <- bed_window(x, y, genome, both = 110)
  expect_equal(nrow(out), 6)
})

test_that("left arg works", {
  out <- bed_window(x, y, genome, left = 110)
  expect_equal(nrow(out), 4)
})

test_that("right arg works", {
  out <- bed_window(x, y, genome, right = 110)
  expect_equal(nrow(out), 5)
})