1
0
mirror of https://github.com/msberends/AMR.git synced 2024-12-26 04:46:11 +01:00

Update test-clipboard.R

This commit is contained in:
MS Berends 2018-03-29 14:47:52 +02:00 committed by GitHub
parent 258e080756
commit e2a5202b69
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -1,11 +1,9 @@
context("clipboard.R") context("clipboard.R")
test_that("clipboard works", { test_that("clipboard works", {
# why is the <<- needed? Won't work without it... skip_on_os(c("linux", "solaris"))
if (Sys.info()['sysname'] %like% "Windows") { t1 <<- AMR::antibiotics # why is the <<- needed? Won't work without it...
t1 <<- AMR::antibiotics clipboard_export(t1, info = FALSE)
clipboard_export(t1, info = FALSE) t2 <- clipboard_import()
t2 <- clipboard_import() expect_equal(t1, t2)
expect_equal(t1, t2)
}
}) })