Nothing
# Run all tests in this script:
## testthat::test_file(file.path("tests", "testthat", "test-xp_pool.R"))
# Error testing
test_that("Errors work as desired", {
## Any input unspecified
expect_error(xp_pool(party_level = NULL, party_size = 2,
ver = "2014", difficulty = 'medium'))
expect_error(xp_pool(party_level = 3, party_size = NULL,
ver = "2014", difficulty = 'medium'))
expect_error(xp_pool(party_level = 3, party_size = 2,
ver = "2014", difficulty = NULL))
## Party information non-numeric
expect_error(xp_pool(party_level = "x", party_size = 2,
ver = "2014", difficulty = 'medium'))
expect_error(xp_pool(party_level = 3, party_size = "x",
ver = "2014", difficulty = 'medium'))
## Too many party levels
expect_error(xp_pool(party_level = 1:10, party_size = 2,
ver = "2014", difficulty = 'medium'))
## Unsupported difficulty
expect_error(xp_pool(party_level = 3, party_size = 2,
ver = "2014", difficulty = 'super easy'))
})
# # Warning testing
# test_that("Warnings work as desired", {
# # No warnings in this function
# })
# Output testing
test_that("Outputs are as expected", {
## Integer party level
available_xp <- xp_pool(party_level = 5, party_size = 5,
ver = "2014", difficulty = 'medium')
expect_equal(class(available_xp), "numeric")
## Non-integer party level
available_xp <- xp_pool(party_level = 3.6, party_size = 5,
ver = "2024", difficulty = 'moderate')
expect_equal(class(available_xp), "numeric")
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.