tests/testthat/test-show_credentials.R

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

# message displayed
test_that("Message issued on function execution", {

    withr::local_envvar(.new = list(
        "SUSO_SERVER" = "https://demo.mysurvey.solutions", 
        "SUSO_WORKSPACE" = "fakespace",
        "SUSO_USER" = "FakeX1", 
        "SUSO_PASSWORD" = "Fake123456"))

    # suppressMessages(set_credentials(
    #     server = "https://demo.mysurvey.solutions", 
    #     user = "FakeX1", 
    #     password = "Fake123456"
    # ))

    expect_message(show_credentials())

})

# message contains input credentials
test_that("Message contains all input credentials", {

    withr::local_envvar(.new = list(
        "SUSO_SERVER" = "https://demo.mysurvey.solutions", 
        "SUSO_WORKSPACE" = "fakespace",
        "SUSO_USER" = "FakeX1", 
        "SUSO_PASSWORD" = "Fake123456"))

    # suppressMessages(set_credentials(
    #     server = "https://demo.mysurvey.solutions", 
    #     user = "FakeX1", 
    #     password = "Fake123456"
    # ))


    expect_message(show_credentials(), "- server: https://demo.mysurvey.solutions")
    expect_message(show_credentials(), "- workspace: fakespace")
    expect_message(show_credentials(), "- user: FakeX1")
    expect_message(show_credentials(), "- password: Fake123456")

})