1
0
mirror of https://github.com/msberends/AMR.git synced 2025-01-14 12:41:37 +01:00
AMR/tests/testthat/test-clipboard.R
2018-03-29 14:47:52 +02:00

10 lines
257 B
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)
})