tests/testthat/test-quadIntegration.R

In RyDe4/ChIPanalyzer: ChIPAnalyzer

library(testthat)

test_that("Test that the pathway examining G-quad positions works", {
  testReports <- findQuads(
    bedPath = "MAZ_very_small_test.bed",
    seq = 200,
    assembly = "hg19")
  testMatrix <- getQuadMatrix(testReports)
  testPercentages <- getQuadCoveragePercentage(testMatrix)
  expect_equal(typeof(plotQuadPosition(testPercentages, "test plot")), "list")
})