tests/testthat/test-export_list.R

context("test-export_list.R")

l <- list(a = c("a", "b"),
          b = c(1, 2, 3))

v <- c(1, 2, 3)

test_that("fail if no list is provided", {
  expect_error(export_list = v)
})
medpsytuebingen/medpsytueR documentation built on May 25, 2019, 10:30 p.m.