tests/testthat/test-file-backed-add-1.R

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

context("Vector operations on file-backed integer vectors")

dir <- "../../data"

# test_that("sum 1K ones", {
#    path <- paste(dir, "1K_ones_int.bin", sep="/")
#    expect_equal(sum(ufo_integer_bin(path) + 1), 2 * 1000)
# })

#test_that("sum 1M ones", {
#    path <- paste(dir, "1M_ones_int.bin", sep="/")
#    expect_equal(sum(ufo_integer_bin(path) + 1), 2 * 1000000)
#})

#test_that("sum 1G ones", {
#    path <- paste(dir, "1G_ones_int.bin", sep="/")
#    expect_equal(sum(ufo_integer_bin(path) + 1), 2 * 1000000000)
#})