tests/testthat/test.setget.R

In dipterix/lazyarray: Persistent Large Data Array with Lazy-Loading on Demand

context("Getter/Setter mode = 2")

test_that("Getter/Setter mode = 2", {
  skip("mode = 2 is not supported anymore")
  # path <- tempfile()
  # suppressWarnings({
  #   self <- create_lazyarray(path, 'double', c(1,3,4), multipart = TRUE, multipart_mode = 2)
  # })
  # private <- self$.__enclos_env__$private
  # value <- array(1:4, c(1,2,2))
  # 
  # expect_true(self$can_write)
  # 
  # self$`@set_data`(value, 1.0, 1:2, 1:2)
  # 
  # expect_equal(self$`@get_data`(1, 2, 1), 2)
  # 
  # expect_equal(self$`@get_data`(1, 1:3, 1), c(1,2,NA))
  # 
  # expect_identical(self[drop = FALSE], array(c(1,2,NA, 3,4,NA, rep(NA, 6)), c(1,3,4)))
  # 
  # self[1, 1:2, c(3,10)] <- 1:4
  # 
  # # change to read_only
  # private$read_only <- TRUE
  # expect_false(self$can_write)
  # 
  # expect_identical(self[drop = FALSE], array(c(1,2,NA, 3,4,NA, 1,2,NA, rep(NA, 3)), c(1,3,4)))
  # 
  # expect_error({self[1, 1:2, c(3,10)] <- 1:4})
  # 
  # # clean up
  # self$remove_data()
  # 
  # expect_false(dir.exists(private$.dir))
  # 
  # # operations will result in error
  # expect_error(self[1,1,1])
  
})




context("Getter/Setter mode = 1")

test_that("Getter/Setter mode = 1", {
  
  self <- lazyarray(tempfile(), storage_format = 'double', dim = c(1,3,4), type = 'fstarray')#, multipart = TRUE, multipart_mode = 1)
  private <- self$.__enclos_env__$private
  value <- array(1:4, c(1,2,2))
  
  expect_true(self$can_write)
  
  subsetAssignFST(value, file = self$storage_path, listOrEnv = list(1.0, 1:2, 1:2), dim = self$dim, dtype = 14L)
  # self$`@set_data`(value, 1.0, 1:2, 1:2)
  
  expect_equal(subsetFST(self$storage_path, list(1,2,1), self$dim, 14L, drop=TRUE), 2)
  # expect_equal(self$`@get_data`(1, 2, 1), 2)
  
  expect_equal(subsetFST(self$storage_path, list(1, 1:3, 1), self$dim, 14L, drop=TRUE), c(1,2,NA))
  # expect_equal(self$`@get_data`(1, 1:3, 1), c(1,2,NA))
  
  expect_equivalent(self[drop = FALSE], array(c(1,2,NA, 3,4,NA, rep(NA, 6)), c(1,3,4)))
  
  expect_error({ self[1, 1:2, c(3,10)] <- 1:4 })
  self[1, 1:2, c(3,4)] <- 1:4
  
  # change to read_only
  private$.read_only <- TRUE
  expect_false(self$can_write)
  
  expect_equivalent(self[drop = FALSE], array(c(1,2,NA, 3,4,NA, 1,2,NA, 3,4,NA), c(1,3,4)))
  
  expect_error({self[1, 1:2, c(3,4)] <- 1:4})
  
  # clean up
  self$remove_data()
  
  expect_false(dir.exists(private$.path))
  
  # operations will result in error
  expect_error(self[1,1,1])
  
})





context("Getter/Setter no partition")

test_that("Getter/Setter no partition", {
  skip("No partition is not supported anymore")
  # suppressWarnings({
  #   self <- create_lazyarray(tempfile(), 'double', c(1,3,4), multipart = FALSE)
  # })
  # private <- self$.__enclos_env__$private
  # value <- array(1:4, c(1,2,2))
  # 
  # expect_true(self$can_write)
  # 
  # self$`@set_data`(value, 1.0, 1:2, 1:2)
  # 
  # expect_equal(self$`@get_data`(1, 2, 1), 2)
  # 
  # expect_equal(self$`@get_data`(1, 1:3, 1), c(1,2,NA))
  # 
  # expect_identical(self[drop = FALSE], array(c(1,2,NA, 3,4,NA, rep(NA, 6)), c(1,3,4)))
  # 
  # expect_error({
  #   self[1, 1:2, c(3,10)] <- 1:4
  # })
  # 
  # # change to read_only
  # private$read_only <- TRUE
  # expect_false(self$can_write)
  # 
  # expect_identical(self[drop = FALSE], array(c(1,2,NA, 3,4,NA, rep(NA, 6)), c(1,3,4)))
  # 
  # expect_error({self[1, 1:2, 3] <- 1:2})
  # 
  # # clean up
  # self$remove_data()
  # 
  # expect_false(dir.exists(private$.dir))
  # 
  # # operations will result in error
  # expect_error(self[1,1,1])
  
})