tests/testthat/test-entity_create.R

In dbca-wa/ruODK: An R Client for the ODK Central API

test_that("entity_create creates single entities", {
  ru_setup(
    pid = get_test_pid(),
    url = get_test_url(),
    un = get_test_un(),
    pw = get_test_pw(),
    odkc_version = get_test_odkc_version()
  )

  el <- entitylist_list()

  # Entity List name (dataset ID, did)
  did <- el$name[1]

  # All Entities of Entity List
  en <- entity_list(did = did)
  # ed <- entity_detail(did=did, eid = en$uuid[1])

  time_before_create <- lubridate::ymd_hms(Sys.time(), tz = "Australia/Perth")

  # Create a single entity
  lab <- glue::glue("Entity {nrow(en) + 1} created by ruODK package test on {Sys.time()}")
  ec <- entity_create(
    did = did,
    label = lab,
    notes = lab,
    data = list(
      "status" = "needs_followup",
      "details" = "ruODK package test",
      "geometry" = "-33.2 115.0 0.0 0.0"
    )
  )

  ec_names <- c(
    "uuid",
    "creator_id",
    "conflict",
    "created_at",
    "updated_at",
    "deleted_at",
    "current_version"
  )
  testthat::expect_equal(names(ec), ec_names)

  time_created <- lubridate::ymd_hms(ec$created_at, tz = "UTC")

  # For some reason, the server time seems to be in the past, so this test
  # does not always find that the entity was created AFTER the timestamp we
  # created immediately BEFORE creating the entity.
  # testthat::expect_gte(time_created, time_before_create)

  # Test entity_delete
  ec_deleted <- entity_delete(did = did, eid = ec$uuid)
})

test_that("entity_create creates multiple entities", {
  ru_setup(
    pid = get_test_pid(),
    url = get_test_url(),
    un = get_test_un(),
    pw = get_test_pw(),
    odkc_version = get_test_odkc_version()
  )

  el <- entitylist_list()

  # Entity List name (dataset ID, did)
  did <- el$name[1]

  # All Entities of Entity List
  en <- entity_list(did = did)

  label <- c(
    glue::glue(
      "Entity {nrow(en) + 1} created by ruODK package test on {Sys.time()}"
    ),
    glue::glue(
      "Entity {nrow(en) + 2} created by ruODK package test on {Sys.time()}"
    )
  )
  notes <- glue::glue("Two entities created by ruODK package test on {Sys.time()}")
  status <- c("needs_followup", "needs_followup")
  details <- c("ruODK package test", "ruODK package test")
  geometry <- c("-33.2 115.0 0.0 0.0", "-33.2 115.0 0.0 0.0")
  data <- data.frame(status, details, geometry, stringsAsFactors = FALSE)
  request_data <- list(
    "entities" = data.frame(label, data = I(data), stringsAsFactors = FALSE),
    "source" = list("name" = "file.csv", "size" = 100)
  )
  # jsonlite::toJSON(request_data, pretty = TRUE, auto_unbox = TRUE)

  ec <- entity_create(
    did = did,
    notes = notes,
    data = request_data
  )

  testthat::expect_equal(names(ec), "success")
  testthat::expect_true(ec$success)
})

test_that("entity_create input gatechecks", {
  ru_setup(
    pid = get_test_pid(),
    url = get_test_url(),
    un = get_test_un(),
    pw = get_test_pw(),
    odkc_version = get_test_odkc_version()
  )

  el <- entitylist_list()

  # Entity List name (dataset ID, did)
  did <- el$name[1]

  # All Entities of Entity List
  en <- entity_list(did = did)
  # ed <- entity_detail(did=did, eid = en$uuid[1])

  time_before_created <- Sys.time()

  # Create a single entity
  lab <- glue::glue("Entity {nrow(en) + 1} created by ruODK package test on {Sys.time()}")

  # ODKC version not supported
  testthat::expect_warning(entity_create(
    did = did,
    label = lab,
    data = list(
      "status" = "needs_followup",
      "details" = "ruODK package test",
      "geometry" = "-33.2 115.0 0.0 0.0"
    ),
    odkc_version = "1.5.3"
  ))

  # Missing dataset ID
  testthat::expect_error(entity_create())

  # Empty label, malformed data missing "entities"
  testthat::expect_error(entity_create(did = did, data = list()))
})