17 lines
345 B
R
17 lines
345 B
R
|
source("./hello-world.R")
|
||
|
|
library(testthat)
|
||
|
|
|
||
|
|
test_that("no name", {
|
||
|
|
expect_equal(hello_world(), "Hello, World!")
|
||
|
|
})
|
||
|
|
|
||
|
|
test_that("sample name", {
|
||
|
|
expect_equal(hello_world("Alice"), "Hello, Alice!")
|
||
|
|
})
|
||
|
|
|
||
|
|
test_that("other sample name", {
|
||
|
|
expect_equal(hello_world("Bob"), "Hello, Bob!")
|
||
|
|
})
|
||
|
|
|
||
|
|
message("All tests passed for exercise: hello-world")
|