tests/testthat/test_create_groups.R

context("create_groups")

data(words)

table <- create_table(words$letter_count)

test_that("function returns an error", {

      expect_that(create_groups(), throws_error())

})
dtminnick/fdistr documentation built on May 19, 2021, 1:18 a.m.