AMR/tests/testthat/test-clipboard.R

10 lines
223 B
R
Raw Normal View History

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