10 lines
137 B
R
10 lines
137 B
R
library(testthat)
|
|
|
|
test_that("addition works", {
|
|
expect_equal(add(1, 2), 3)
|
|
})
|
|
|
|
test_add <- function() {
|
|
stopifnot(add(1, 2) == 3)
|
|
}
|