tests/testthat/test_hello_world.R

In c5sire/ghk: Tools to Help R Development at CIP

context("hello_world")

test_that("basic tests for  hello_world", {
  expect_that( hello_world(), equals("Hello, world!"))
  expect_that( hello_world("mundo"), equals("Hello, mundo!"))
  expect_that( hello_world(""), equals("") ) 
  expect_that( hello_world(1), throws_error())
})