tests/testthat/test-ns-submission.R

In nettskjemar: Connect to the 'nettskjema.no' API of the University of Oslo

test_that("ns_get_data retrieves data in original format", {
  vcr::use_cassette("ns_get_data_original", {
    with_mocked_nettskjema_auth(
      result <- ns_get_data(form_id, type = "original")
    )
  })

  # Check if the result is a data frame
  expect_true(is.data.frame(result))
  # Check if rows exist in the data
  expect_gt(nrow(result), 0)
})

test_that("ns_get_submission retrieves individual submission", {
  vcr::use_cassette("ns_get_submission", {
    with_mocked_nettskjema_auth(
      result <- ns_get_submission(submission_id)
    )
  })

  # Check if the result is a list
  expect_true(is.list(result))
  # Ensure the result is not empty
  expect_gt(length(result), 0)
})