# auth_NLU tests
#
# Testing includes:
#
# - correct error handling
# - correct function output for valid function input
library(watsonNLU)
context("Keyword Relevance")
credentials <- readRDS("credentials.rds")
username <- credentials$username
password <- credentials$password
test_that("Check error handling for missing input", {
expect_error(with_config({auth_NLU(username = NULL, password = password)}, override = TRUE),
"Please specify a valid username and password combination as string arguments.")
})
test_that("Check error handling for non-character input", {
expect_error(auth_NLU(username = username, password = as.factor(password)),
"Please specify a valid username and password combination as string arguments.")
})
# can't clear cache
# test_that("Check error handling for if valid credential authorization works.", {
# cache <- ".httr-oauth"
# if (file.exists(cache)) file.remove(cache)
# # revoke_all()
# set_config(authenticate(username, "XXXXX"), override = TRUE)
# with_config(authenticate(username, "XXXXX"), expect_equal(auth_NLU(username = username, password = "XXXXX"),
# "Invalid credentials provided."), override = TRUE)
# reset_config()
# })
test_that("Check if valid credential authorization works.", {
expect_equal(auth_NLU(username = username, password = password),
"Valid credentials provided.")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.