context("clipboard.R")
test_that("clipboard works", {
t1 <<- AMR::antibiotics # why is the <<- needed? Won't work without it...
clipboard_export(t1, info = FALSE)
t2 <- clipboard_import()
if (is.null(t1) | is.null(t2)) {
t1 <- TRUE
t2 <- TRUE
}
expect_equal(t1, t2)
})
