tests/testthat/test_GeneratePlotPFMmatrix.R

In ICAMS: In-Depth Characterization and Analysis of Mutational Signatures ('ICAMS')

test_that("GeneratePlotPFMmatrix", {
  # Please see "./data-raw/code/create_testdata_for_ID_extended_sequences.R"
  # for generating the test data

  load("testdata/test_GeneratePlotPFMmatrix.Rdata")

  files <- file.path(tempdir(), paste0("test", 1:4, ".pdf"))

  test.INS.T.1.0.retval <-
    GeneratePlotPFMmatrix(sequences = INS.T.1.0.sequences,
                          indel.class = "INS:T:1:0",
                          flank.length = 10,
                          plot.dir = files[1],
                          plot.title = "De novo insertion of 1T")

  test.INS.T.1.4.retval <-
    GeneratePlotPFMmatrix(sequences = INS.T.1.4.sequences,
                          indel.class = "INS:T:1:4",
                          flank.length = 6,
                          plot.dir = files[2],
                          plot.title = "Insertion of 1T to 4Ts")

  test.DEL.C.1.0.retval <-
    GeneratePlotPFMmatrix(sequences = DEL.C.1.0.sequences,
                          indel.class = "DEL:C:1:0",
                          flank.length = 10,
                          plot.dir = files[3],
                          plot.title = "Deletion of 1C from 1C")


  test.DEL.C.1.4.retval <-
    GeneratePlotPFMmatrix(sequences = DEL.C.1.4.sequences,
                          indel.class = "DEL:C:1:4",
                          flank.length = 6,
                          plot.dir = files[4],
                          plot.title = "Deletion of 1C from 5Cs")

  expect_equal(test.INS.T.1.0.retval, INS.T.1.0.retval)
  expect_equal(test.INS.T.1.4.retval, INS.T.1.4.retval)
  expect_equal(test.DEL.C.1.0.retval, DEL.C.1.0.retval)
  expect_equal(test.DEL.C.1.4.retval, DEL.C.1.4.retval)

  sapply(files, FUN = unlink, recursive = TRUE)
})

test_that("errors", {
  expect_error(
    test.INS.T.1.4.retval <-
      GeneratePlotPFMmatrix(sequences = c(INS.T.1.4.sequences, INS.T.1.0.sequences),
                            indel.class = "INS:T:1:4")
    )
})