tests/testthat/test-long_int64.R

In dotCall64: Enhanced Foreign Function Interface Supporting Long Vectors

library(dotCall64)
context("test-local-tests")

test_that("pass-long-int64_t", {
    skip_on_cran()
    a <- numeric(2^31)
    expect_identical(.C64("BENCHMARK",
                          SIGNATURE = "int64",
                          a = a,
                          INTENT = "rw",
                          NAOK = TRUE, 
                          VERBOSE = 1,
                          PACKAGE = "dotCall64")$a,
                     a)
})