tests/testthat/test-testsforRegularfunctions.R

In Anirban166/testComplexity: Asymptotic Complexity Testing Framework

# Test for substring() (retrieve/replace substring in a string)
# Expected linear time complexity (but was previously found quadratic as described in this case: https://stat.ethz.ch/pipermail/r-devel/2019-February/077318.html)
#test_that("substring function test", {
#  expect_linear_time(asymptoticTimings, substring(paste(rep("A", N), collapse = ""), 1:N, 1:N), data.sizes = 10^seq(1, 5, by = 0.5), max.seconds = 1)
#})

# Test for gregexpr() (global regexpr, giving all matches in a string)
# Expected linear time complexity (but similar to substring it was found quadratic as described in this case https://stat.ethz.ch/pipermail/r-devel/2017-January/073577.html)
#test_that("gregexpr function test", {
#  expect_linear_time(asymptoticTimings, gregexpr("a", paste(collapse = "", rep("ab", N)), perl = TRUE), data.sizes = 10^seq(1, 5, by = 0.5), max.seconds = 1)
#})