tests/testthat/test-login.R

In enviPathR: Client for the 'enviPath' 'RESTful' API

with_mock_dir("../httptest/login", {
    
    test_that("login", {
        
        expect_error(
            epLogin("username"),
            'argument "password" is missing, with no default',
            fixed = TRUE
        )
        
        expect_error(
            epLogin("wrong_user", "wrong_pass"),
            "Authentication failed. Please check your username and password.",
            fixed = TRUE
        )
        
        expect_message(epLogout())
        
        if( is_active ){
            expect_message(
                epLogin(username, password),
                "Hi nature lover, welcome to enviPath!",
                fixed = TRUE
            )
        }
    })
})