tests/testthat/test-foo.R

In r-lib/r-azure-pipelines: Test package for azure pipelines

test_that("foo works", {
  expect_equal(foo(), 1)
})

#test_that("foo does not work", {
  #expect_equal(foo(), 2)
#})

#test_that("bar errors", {
  #expect_equal(bar(1), 2)
#})