tests/testthat/test_fit.R

In statisfactions/simpr: Flexible 'Tidyverse'-Friendly Simulations

context("simpr::fit")
library(dplyr)

test_that("Multiple fit functions give different results", {
  set.seed(100)
  chisq_spec = specify(x1 = ~rnorm(n),
                         x2 = ~x1 + rnorm(n, 0, sd = 2),
                         c1 = ~ cut(x1, breaks = b) %>% as.numeric,
                         c2 = ~ cut(x2, breaks = b) %>% as.numeric) %>%
    define(n = c(50, 100),
         b = c(2, 10))

  chisq_fit = chisq_spec %>%
    generate(5) %>%
    fit(ChiSq = ~ suppressWarnings(chisq.test(.$c1, .$c2)),
        Unknown_Continuous_Correlation = ~cor.test(.$x1, .$x2))



  ## These should NOT be the same!
  expect_false(identical(chisq_fit$ChiSq, chisq_fit$Unknown_Continuous_Correlation))

})

## Error handling -----------

test_that("error options work for fit()", {
  set.seed(100)
  char = specify(x0 = ~ rnorm(20),
                           y = ~ if(constant) 10 else x0) %>%
    define(constant = c(FALSE, TRUE)) %>%
    generate(1)

  char %>%
    fit(t_test = ~ t.test(y)) %>%
    expect_warning("produced errors.")

  char %>%
    fit(t_test = ~ t.test(y), .stop_on_error = TRUE) %>%
    expect_error("data are essentially constant")

  char %>%
    fit(t_test = ~ t.test(y), .warn_on_error = FALSE, .quiet = FALSE) %>%
    expect_message("data are essentially constant")

  char %>%
    fit(t_test = ~ t.test(y), .warn_on_error = FALSE) %>%
    expect_silent()

})