tests/testthat/test-stat_summary.R

In tguo9/samplingsimulatorr: What the Package Does (One Line, Title Case)

test_that("The tibble does not generate as expected", {

  pop <- generate_virtual_pop(100000, "Height", rexp, 5)
  samples <- draw_samples(pop, 1, c(1))

  expect_equal(nrow(stat_summary(pop, samples, c('mean', 'sd'))), 2)
  expect_equal(names(stat_summary(pop, samples, c('mean', 'sd'))), c('data', 'mean', 'sd'))
})

test_that("The population you passed in is not a valid data frame", {
  expect_error(stat_summary(c(1, 2), dplyr::tibble(x = 1:3), 'mean'))
  expect_error(stat_summary(dplyr::tibble(a = character()), dplyr::tibble(x = 1:10), c('mean', 'sd')))
  expect_error(stat_summary(dplyr::tibble(a = numeric()), dplyr::tibble(x = 1:10), c('mean', 'sd')))
})

test_that("The samples you passed in is not a valid data frame", {
  expect_error(stat_summary(dplyr::tibble(x = 1:3), c(1, 2), 'mean'))
  expect_error(stat_summary(dplyr::tibble(x = 1:10), dplyr::tibble(a = character()), c('mean', 'sd')))
  expect_error(stat_summary(dplyr::tibble(x = 1:10),  dplyr::tibble(a = numeric()), c('mean', 'sd')))
})

test_that("The function you passed in is not a valid function", {
  pop <- generate_virtual_pop(100000, "Height", rexp, 5)
  samples <- draw_samples(pop, 1, c(1))

  expect_error(stat_summary(pop, samples, 'mean_not_here'))
  expect_error(stat_summary(pop, samples, c('mean_not_here', 'sd_not_here')))
  expect_error(stat_summary(pop, samples, c('mean', 'sd_not_here')))
})