tests/testthat/test_methylcnv-pipe.R

In markgene/yamatCN: Yet Another Methylation Array Toolkit Copy Number Analysis

context("MethylCNV Pipeline")
library(yamatCN)
library(minfiData)

skip_flag <- TRUE

ref <- RGsetEx[, 1:3]
qry <- RGsetEx[, 4:6]
report_dir <- tempdir()

test_that("methylcnv_pipe()", {
  testthat::skip_if(skip_flag, "Skip")
  testthat::expect_error(
    methylcnv_pipe(
      ref = ref,
      qry = qry,
      report_dir = report_dir,
      norm_method = "methylcnv",
      batch = NULL,
      batch2 = NULL
    ),
    NA
  )
})