context("Prime generators")
test_that("Prime numbers can be generated, full stop", {
expect_equal(generate_primes(max=12), c(2,3,5,7,11))
})
test_that("'min' is respected", {
expect_equal(generate_primes(4, 12), c(5,7,11))
expect_equal(generate_primes(5, 12), c(5,7,11))
})
test_that("Can generate up to the nth prime", {
expect_equal(generate_n_primes(5), c(2,3,5,7,11))
expect_equal(generate_n_primes(0), integer(0))
expect_equal(generate_n_primes(-1), integer(0))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.