tests/testthat/test-odata_submission_rectangle.R

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

context("test-odata_submission_rectangle.R")

test_that("odata_submission_rectangle works", {
  data("fq_raw")
  data_parsed <- odata_submission_rectangle(fq_raw, verbose = TRUE)

  # Field "device_id" is known part of fq_raw
  testthat::expect_equal(
    data_parsed$device_id[[1]],
    fq_raw$value[[1]]$device_id
  )

  # fq_raw has two submissions
  testthat::expect_equal(length(fq_raw$value), nrow(data_parsed))
})


test_that("odata_submission_rectangle parses GeoJSON to nested list", {
  # submission_rectangle calls form_schema and fails without credentials
  skip_if(Sys.getenv("ODKC_TEST_URL") == "",
    message = "Test server not configured"
  )


  # nolint start
  data("geo_fs") # parse T
  data("geo_gj_raw") # parse F, wkt F
  # data("geo_gj")      # parse T, wkt F
  # data("geo_wkt_raw") # parse F, wkt T
  # data("geo_wkt")     # parse T, wkt T
  # nolint end

  # Unparsed, rectangled, GeoJSON
  d <- geo_gj_raw %>%
    odata_submission_rectangle(form_schema = geo_fs, verbose = TRUE)

  d2 <- geo_gj_raw %>%
    odata_submission_rectangle(form_schema = geo_fs, verbose = TRUE) %>%
    # Trigger verbose messages
    handle_ru_geopoints(form_schema = geo_fs, verbose = TRUE) %>%
    handle_ru_geotraces(form_schema = geo_fs, verbose = TRUE) %>%
    handle_ru_geoshapes(form_schema = geo_fs, verbose = TRUE)

  geo_fields <- geo_fs %>%
    dplyr::filter(type %in% c("geopoint", "geotrace", "geoshape")) %>%
    magrittr::extract2("ruodk_name")

  # This test requires a form with geo fields
  testthat::expect_true(
    length(geo_fields) > 0,
    label =
      glue::glue(
        "test-handle_ru_geopoints needs test data",
        "with at least one geo field. Form schema:\n\n",
        "{knitr::kable(geo_fs)}"
      )
  )

  # GeoJSON should be nested lists
  for (i in seq_len(length(geo_fields))) {
    testthat::expect_true(
      is.list(d[[geo_fields[i]]]),
      label = glue::glue(
        "GeoJSON field {geo_fields[i]} should be a nested list"
      )
    )
  }
})

test_that("odata_submission_rectangle parses WKT as text", {
  skip_if(Sys.getenv("ODKC_TEST_URL") == "",
    message = "Test server not configured"
  )

  data("geo_fs") # parse T
  data("geo_wkt_raw") # parse F, wkt T

  # Unparsed, rectangled, GeoJSON
  d <- geo_wkt_raw %>%
    odata_submission_rectangle(form_schema = geo_fs)

  geo_fields <- geo_fs %>%
    dplyr::filter(type %in% c("geopoint", "geotrace", "geoshape")) %>%
    magrittr::extract2("ruodk_name")

  # This test requires a form with geo fields
  testthat::expect_true(
    length(geo_fields) > 0,
    label = glue::glue(
      "test-handle_ru_geopoints needs test data",
      "with at least one geo field. Form schema:\n\n",
      "{knitr::kable(geo_fs)}"
    )
  )

  # WKT should be character strings
  for (i in seq_len(length(geo_fields))) {
    testthat::expect_true(
      is.character(d[[geo_fields[i]]]),
      label = glue::glue("WKT field {geo_fields[i]} should be character")
    )
  }
})

test_that("odata_submission_rectangle works on non-spatial forms", {
  skip_if(Sys.getenv("ODKC_TEST_URL") == "",
    message = "Test server not configured"
  )

  fs <- form_schema(
    pid = get_test_pid(),
    fid = Sys.getenv("ODKC_TEST_FID_I8N2", unset = "I8n_label_choices"),
    url = get_test_url(),
    un = get_test_un(),
    pw = get_test_pw(),
    odkc_version = get_test_odkc_version()
  )

  sub_raw <- odata_submission_get(
    pid = get_test_pid(),
    fid = Sys.getenv("ODKC_TEST_FID_I8N2", unset = "I8n_label_choices"),
    url = get_test_url(),
    un = get_test_un(),
    pw = get_test_pw(),
    odkc_version = get_test_odkc_version(),
    parse = FALSE
  )

  sub <- sub_raw %>%
    odata_submission_rectangle(form_schema = fs, verbose = TRUE)

  expect_s3_class(sub, class = c("tbl_df", "tbl", "data.frame"))
})
# usethis::use_r("odata_submission_rectangle") # nolint