library(testthat)
context("Testing function make_filename")
test_that("make_filename output is correct",{
# Expectation: output is a character string
expect_is(make_filename(1), "character")
# Expectation: Warning message due to input cannot be coerced to integer
expect_warning(make_filename("hello"))
# Expectation: Output is correct
expect_equal(make_filename(2013), system.file("extdata",
sprintf("accident_%d.csv.bz2",
2013),
package = "coursera"))
})
test_that("make_filename stops correctly",{
# Expectation: functions stops and throws error if input cannot be coerced to
# integer
expect_error(make_filename(data.frame(c(1,2), c(3,4))))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.