tests/testthat/test-get_interview_transcript.R

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

# INPUTS

# interview_id is a GUID
test_that("interview_id is a GUID", {
    expect_error(
        get_interview_transcript(
            interview_id = "abc",
            path = vcr::vcr_test_path("fixtures")
        )
    )
})

# path
test_that("Error if `job_id` invalid format", {
    expect_error(
        get_interview_transcript(
            interview_id = "19cb7577-0b1c-48de-b244-31ad29e9d6e4",
            path = "invalid/file/path/",
            workspace = "primary"
        )        
    )
})

# workspace
# invalid workspace name
test_that("Error if invalid workspace name", {
    expect_error(
        get_interview_transcript(
            interview_id = "19cb7577-0b1c-48de-b244-31ad29e9d6e4",
            path = vcr::vcr_test_path("fixtures"),
            workspace = "I am an invalid workspace name"
        )
    )
})
# unauthorized or non-existant workspace
test_that("Error if unauthorized or non-existant workspace", {
    expect_error(
        get_interview_transcript(
            interview_id = "19cb7577-0b1c-48de-b244-31ad29e9d6e4",
            path = vcr::vcr_test_path("fixtures"),
            workspace = "fake"
        )
    )
})

# OUTPUTS

# issues message about success/failure
test_that("issues message about success/failure", {

    # NOTE: test always fails with vcr--probably problem with that package
    # vcr::use_cassette("get_interview_transcript_msg", {
        expect_message(
            get_interview_transcript(
                interview_id = "19cb7577-0b1c-48de-b244-31ad29e9d6e4",
                path = vcr::vcr_test_path("fixtures")
            )
        )
    # })

})

# downloads file to indicated path
# TODO: figure out how