tests/testthat/test-get_export_job_details.R

In arthur-shaw/susoapi: Interface for Survey Solutions' APIs

# inputs

# job_id
test_that("Error if `job_id` not numeric", {
    expect_error(get_export_job_details(job_id = "abc"))
})

# workspace
# invalid name
test_that("Error if invalid workspace name", {
    expect_error(
        get_export_job_details(
            job_id = 1,
            workspace = "I am an invalid workspace name"
        )
    )
})
# unauthorized or non-existant workspace
test_that("Error if unauthorized or non-existant workspace", {
    expect_error(
        get_export_job_details(
            job_id = 1,
            workspace = "fake"
        )
    )
})

# outputs

# message, if details not found
test_that("Message if export job not found", {
    expect_message(get_export_job_details(job_id = 0))
})

# df
test_that("df if export job found", {
    
    vcr::use_cassette("get_export_job_details_df", {
        x <- get_export_job_details(job_id = 1)
    })
    
    expect_s3_class(x, c("tbl_df","tbl","data.frame"))
    expect_named(x, c(
        "JobId", "ExportStatus", "StartDate", "CompleteDate", "CreateDate",
        "Progress", "ETA", "Error", "HasExportFile", 
        "ExportType", "QuestionnaireId", "InterviewStatus", "From",
        "To", "AccessToken", "RefreshToken", "StorageType", 
        "TranslationId", "IncludeMeta", "CancelLink", "DownloadLink"
    ), ignore.order = TRUE)

})