tests/testthat/test-python-helpers.R

In dccvalidator: Metadata Validation for Data Coordinating Centers

context("test-python-helpers.R")

syn <- attempt_instantiate()
attempt_login(syn)

test_that("dict_to_list converts annotations", {
  skip_if_not(logged_in(syn = syn))
  # I haven't been able to recreate a Python object by hand that matches what's
  # returned from Synapse, so we'll just test with real annotations
  x <- syn$getAnnotations("syn17038064")
  expect_equal(dict_to_list(x), list(fileFormat = "txt"))
})