Add simple mmap transfer test case

r-lib · Jul 15, 2019 · f5d952c · f5d952c
1 parent c31786d
commit f5d952c
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/tests/testthat/test-mmap.R b/tests/testthat/test-mmap.R
@@ -0,0 +1,15 @@
+
+context("mmap data transfer")
+
+test_that("mmap transfer", {
+  skip_on_os("windows")
+
+  data <- list(a = 1:100, b = runif(100), c = charToRaw("foobar"))
+  fun <- function(a, b, c) {
+    list(mean(a), median(b), rawToChar(c))
+  }
+
+  res <- callr::r(fun, args = data, transfer = "mmap")
+
+  expect_identical(res, do.call(fun, data))
+})