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

})

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

# OUTPUTS

# issue message about success or failure of operation
# NOTE: test always fails with vcr--must be problem with that package
# vcr::use_cassette("delete_interview_msg", {

    test_that("issue message about success or failure of operation", {

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

    })

# })