tests/testthat/test_getRegexPattern.R

In Aufiero/circRNAprofiler: circRNAprofiler: An R-Based Computational Framework for the Downstream Analysis of Circular RNAs

context("Test that getRegexPattern() function works correctly")
test_that("getRegexPattern() generates the correct regex pattern", {
    iupacSeq <- "ATCGTWWRRDHS"
    regexPattern <- getRegexPattern(iupacSeq, isDNA = TRUE)
    expect_equal(regexPattern, "ATCGT[AT][AT][AG][AG][AGT][ACT][GC]")

    iupacSeq <- "AUCGUWWRRDHS"
    regexPattern <- getRegexPattern(iupacSeq, isDNA = FALSE)
    expect_equal(regexPattern, "AUCGU[AU][AU][AG][AG][AGU][ACU][GC]")

})