inst/tinytest/test_filterlist.R

In tiledb: Universal Storage Engine for Sparse and Dense Multidimensional Arrays

library(tinytest)
library(tiledb)

isOldWindows <- Sys.info()[["sysname"]] == "Windows" && grepl('Windows Server 2008', osVersion)
if (isOldWindows) exit_file("skip this file on old Windows releases")

ctx <- tiledb_ctx(limitTileDBCores())

#test_that("tiledb_filter_list default constructor", {
flt <- tiledb_filter_list()
expect_true(is(flt, "tiledb_filter_list"))
#})

#test_that("tiledb_filter_list accepts filters in constructor", {
flt <- tiledb_filter()
filter_list = tiledb_filter_list(c(flt))
expect_equal(nfilters(filter_list), 1)
#})

#test_that("tiledb_filter_list can set and get max_chunk_size", {
flt <- tiledb_filter()
filter_list = tiledb_filter_list(c(flt))
expect_equal(nfilters(filter_list), 1)
set_max_chunk_size(filter_list, 10)
expect_equal(max_chunk_size(filter_list), 10)
#})