tests/testthat/test-get_interview_history.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_history(interview_id = "abc")
    )

})

# workspace
# invalid workspace name
test_that("Error if invalid workspace name", {
    expect_error(
        get_interview_history(
            interview_id = "19cb7577-0b1c-48de-b244-31ad29e9d6e4",
            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_history(
            interview_id = "19cb7577-0b1c-48de-b244-31ad29e9d6e4",
            workspace = "fake"
        )
    )
})

# OUTPUTS

# if interview exists, returns list (FOR NOW)
# NOTE: test always fails with vcr--probably problem with that pakcage
# vcr::use_cassette("get_interview_history_list", {

    test_that("if interview exists, returns list (FOR NOW)", {

        x <- get_interview_history(interview_id = "7bdf95abab1b4d46b818cdf7546e049f")
        expect_type(x, "list")

    })

# })

# if no interview exists, issues message
# NOTE: test always fails with vcr--probably problem with that pakcage
# vcr::use_cassette("get_interview_history_msg", {

    test_that("if no interview exists, issues message", {

        expect_message(
            get_interview_history(interview_id = "19cb7577-0b1c-48de-b244-31ad29e9d6e4")
        )

    })

# })