AMR/tests/testthat/test-clipboard.R

context("clipboard.R")

test_that("clipboard works", {
  skip_on_os(c("linux", "solaris"))
  t1 <<- AMR::antibiotics # why is the <<- needed? Won't work without it...
  clipboard_export(t1, info = FALSE)
  t2 <- clipboard_import()
  expect_equal(t1, t2)
})
add tests using testthat 2018-03-27 17:43:42 +02:00			`context("clipboard.R")`

			`test_that("clipboard works", {`
Update test-clipboard.R 2018-03-29 14:47:52 +02:00			`skip_on_os(c("linux", "solaris"))`
			`t1 <<- AMR::antibiotics # why is the <<- needed? Won't work without it...`
			`clipboard_export(t1, info = FALSE)`
			`t2 <- clipboard_import()`
			`expect_equal(t1, t2)`
add tests using testthat 2018-03-27 17:43:42 +02:00			`})`