inst/tinytest/test_array.R

In eddelbuettel/tldbclr: TileDB Cloud Platform R Client Package

library(tiledbcloud)
library(tinytest)

api <- tiledbcloud:::.pkgenv[["apiClientInstance"]]

arr <- ArrayApi$new(api)
expect_true(is(arr, "ArrayApi"))

res <- arr$GetArrayMetadata("TileDB-Inc", "quickstart_dense")
expect_true(is(res, "ArrayInfo"))
expect_equal(res$tiledb_uri, "tiledb://TileDB-Inc/quickstart_dense")
expect_equal(res$namespace, "TileDB-Inc")
expect_equal(res$type, "dense")
#print(str(res))


## next ones derived from test_basic.py

ai <- tiledbcloud::ArrayInfo$new("tiledb://TileDB-Inc/quickstart_sparse")
expect_true(is(ai, "ArrayInfo"))

ai <- tiledbcloud::ArrayActivityLog$new("tiledb://TileDB-Inc/quickstart_sparse")
expect_true(is(ai, "ArrayActivityLog"))