tests/testthat/setup-tests.R

In tidysq: Tidy Processing and Analysis of Biological Sequences

# ERROR FOR NON-SQ OBJECTS ----
test_sq_only <- function(.func, ..., .data.frame_ok = FALSE) {
  test_message <- if (.data.frame_ok)
    "the first argument must be of sq or data.frame class" else
      "the first argument must be of sq class"

  test_that(test_message, {
    expect_s3_class(rlang::catch_cnd(.func(1:7, ...)),
                    "error_no_method")
    expect_s3_class(rlang::catch_cnd(.func(LETTERS, ...)),
                    "error_no_method")
    expect_s3_class(rlang::catch_cnd(.func(list(mean, sum, sd), ...)),
                    "error_no_method")
  })
}