tests/testthat/test-write_cb.R

In mbojan/clipboard: Facilities to read/write to/from system clipboard

test_that("Character vector is correctly written and read", {
  skip_on_ci()
  ch <- "ala ma kota"
  write_cb(ch)
  r <- read_cb()
  expect_identical(ch, r)
} )


test_that("Numeric vector is correctly written and read", {
  skip_on_ci()
  x <- 1:5
  write_cb(x)
  r <-read_cb()
  expect_identical(as.character(x), r)
} )