inst/tinytest/test_b_show_profile.R

In TileDB-Inc/TileDB-Cloud-R: TileDB Cloud Platform R Client Package

# ================================================================
# See comments on test_delayed_1.R regarding filenames for these test cases.
# ================================================================

library(tiledbcloud)
library(tinytest)

# ----------------------------------------------------------------
if (!tiledbcloud:::.logged_in()) exit_file("not logged in")

# ----------------------------------------------------------------
# The result of show_profile() will vary depending on which user runs this
# test.  But we can check essential things, such as whether some fields are
# present and non-empty.

p <- tiledbcloud::user_profile()

expect_equal(length(p$id), 1)
expect_true(nchar(p$id[[1]]) > 0)

expect_equal(length(p$name), 1)
expect_true(nchar(p$name[[1]]) > 0)

expect_equal(length(p$email), 1)
expect_true(nchar(p$email[[1]]) > 0)