tests/testthat/testhelloIMR.R

library(helloIMR)
context("The only test")

test_that("Output is correct", {
  expect_equal(helloIMR_function("BERGEN"), "Hello from IMR Bergen!")
  expect_equal(helloIMR_function(), "Hello from IMR Bergen!")
  expect_equal(helloIMR_function("TROMSO"), "Hello from IMR!")
})
iambaim/git-sandbox documentation built on May 6, 2019, 6:02 p.m.