2018-03-27 17:43:42 +02:00
|
|
|
context("clipboard.R")
|
|
|
|
|
|
|
|
|
|
test_that("clipboard works", {
|
2018-03-29 14:47:52 +02:00
|
|
|
t1 <<- AMR::antibiotics # why is the <<- needed? Won't work without it...
|
|
|
|
|
clipboard_export(t1, info = FALSE)
|
|
|
|
|
t2 <- clipboard_import()
|
2018-04-02 11:11:21 +02:00
|
|
|
skip_if(is.null(t1) | is.null(t2), message = "No clipboard content found: skipping.")
|
2018-03-29 14:47:52 +02:00
|
|
|
expect_equal(t1, t2)
|
2018-03-27 17:43:42 +02:00
|
|
|
})
|
