require(testthat)

context("long tables")

source("fst_helpers.R")


# temp data folder
if (dir.exists("data")) {
  unlink("data", recursive = TRUE, force = TRUE)
}

dir.create("data")


test_that("long table", {

  skip_on_cran() # this test requires > 4 GB RAM

  skip_on_ci() # this test requires > 4 GB RAM

  skip_if(.Machine$sizeof.pointer != 8)

  # manually create a data frame
  df <- structure(
    list(
      X = rep(as.raw(1L:16L), 2^27 + 1)
    ),
    class = "data.frame"
  )

  # test for long vec
  expect_equal(length(df$X) - (2^31 + 16), 0)

  # write to disk
  fstcore:::fststore("data/1.fst", df, 50L, TRUE)

  # result table contains a long vec
  y <- fstcore:::fstretrieve("data/1.fst", NULL, 1, NULL)
  expect_equal(length(y$resTable$X) - (2^31 + 16), 0)

  # custom row selection
  y <- fstcore:::fstretrieve("data/1.fst", NULL, 1, 2^31 + 1)
  expect_equal(length(y$resTable$X) - (2^31 + 1), 0)
})