tests/testthat/helper-test-functions.R

In brunocarlin/tidy.outliers: What the Package Does (One Line, Title Case)

test_scores <- function(outlier_score) {
  test_that("scores make sense", {
    expect_gte(min(outlier_score), 0)
    expect_lte(min(outlier_score), 1)
    expect_false(any(is.na(outlier_score)))
  })
}


na_values_break_fun <- function(recipe_step, ...) {
  mtcars2 <- mtcars
  mtcars2[2, 2] <- NA

  test_that("na values create an error", {
    expect_error(
      recipe(mpg ~ ., data = mtcars2) %>%
        recipe_step(all_numeric(), -all_outcomes()) %>%
        prep(mtcars2)
    )
  })
}