tests/testthat/test-file-backed-sum.R

In ufo-org/ufo-r-vectors: Implementation of R vectors using UserFault Objects

context("Make segfault")

#create_bin_file <- function(name, template, repeats = 1) {
#    path <- tempfile(name)
#    handle <- file(path, "wb")
#    for (i in 1:repeats) { writeBin(template, handle) }
#    close(handle)
#    path
#}

#destroy_bin_file <- function(path) {
#	unlink(path)
#}

#test_that("sum 1K int ones", {
#    path <- create_bin_file(name="ufo1K", template=as.integer(rep(1,1000)), repeats=1)
#    expect_equal(sum(ufo_integer_bin(path)), 1000)
#    destroy_bin_file(path)
#})

#test_that("sum 1M int ones", {
#	path <- create_bin_file(name="ufo1M", template=as.integer(rep(1,1000000)), repeats=1)
#    expect_equal(sum(ufo_integer_bin(path)), 1000000)
#    destroy_bin_file(path)
#})

test_that("sum 1G int ones", {
    a <- ufo_integer(100000000)
    rm(a);

    v <- ufo_integer(1000000)
    s <- sum(v)
    expect_equal(s, 0)
})