tests/testthat/test-myloop.R

context("test-myloop")

test_that("myloop works", {
  myloop_output <- myloop(c("Mon", "Tue", "Wed"))
  expect_equal(myloop_output, c("Today is Mon", "Today is Tue", "Today is Wed"))
})
LiYingWang/mytest documentation built on May 7, 2019, 8:20 a.m.