Nothing
# Mock all HTTP httr::GET requests
test_that("httr::GET function mocks correctly", {
with_mock(
`httr::GET` = function(x, y) "mocked response",
expect_equal(get_endpoint("fakekey", "endpoint",
"https://api.rosette.com/rest/v1/"),
"mocked response")
)
})
# Mock all HTTP httr::POST requests
test_that("httr::POST functions mock correctly", {
parameters <- jsonlite::toJSON(list())
with_mock(
`httr::POST` = function(x, y, ...) "mocked response",
expect_equal(post_endpoint("fakekey", parameters, "endpoint",
"https://api.rosette.com/rest/v1/"),
"mocked response")
)
})
test_that("The function detects a multipart", {
parameters <- list()
parameters[["content"]] <- "Rosette Api"
parameters[["documentFile"]] <- "true"
expect_equal(check_for_multipart(parameters), TRUE)
})
test_that("The function creates a multipart", {
payload <- paste("--89dszpjalrbmlsor\r\n",
"Content-Type: application/json\r\n",
"Content-Disposition: mixed; name=\"request\"\r\n\r\n",
"{}\r\n\r\n",
"--89dszpjalrbmlsor\r\n",
"Content-Type: text/plain\r\n",
"Content-Disposition: mixed; name=\"content\";\r\n\r\n",
"Rosette Api\r\n",
"--89dszpjalrbmlsor--", sep = "")
parameters <- list()
parameters[["content"]] <- "Rosette Api"
parameters[["documentFile"]] <- "true"
expect_equal(create_multipart(parameters), payload)
})
test_that("Check error does not return an error", {
response <- list()
response[["content"]] <- "Rosette Api"
expect_equal(error_check(response), response)
})
# mock 409 error return
test_that("409 error is handled correctly", {
value <- "{ \"code\": \"incompatibleClientVersion\" }"
expect_equal(error_check(value), value)
})
test_that("The parameters fulfill the address-similarity requirements", {
parameters <- list()
parameters[["address1"]] <- list("houseNumber" = "1600",
"road" = "Pennsylvania Ave",
"city" = "Washington")
parameters[["address2"]] <- list("houseNumber" = "1600",
"road" = "Pennsylvania Ave",
"city" = "Washington",
"state" = "D.C.",
"postcode" = "20500")
expect_equal(check_address_parameters(parameters), parameters)
})
test_that("The parameter check for address-similarity fails", {
parameters <- list()
parameters[["address1"]] <- list("houseNumber" = "1600",
"road" = "Pennsylvania Ave",
"city" = "Washington")
parameters[["notaddress2"]] <- list("houseNumber" = "1600",
"road" = "Pennsylvania Ave",
"city" = "Washington",
"state" = "D.C.",
"postcode" = "20500")
expect_error(check_address_parameters(parameters),
"Must specify both address1 and address2 parameters")
})
test_that("The parameters fulfill the name-translation requirements", {
parameters <- list()
parameters[["name"]] <- "fake name"
parameters[["targetLanguage"]] <- "eng"
expect_equal(check_names(parameters, "name-translation"), parameters)
})
test_that("The parameters fulfill the name-similarity requirements", {
parameters <- list()
parameters[["name1"]] <- "first name"
parameters[["name2"]] <- "second name"
expect_equal(check_names(parameters, "name-similarity"), parameters)
})
test_that("The parameters fulfill the name-deduplication requirements", {
name <- c("John Smith", "Johnathon Smith", "Fred Jones")
target_language <- c("eng", "eng", "eng")
target_script <- c("Latn", "Latn", "Latn")
names <- data.frame(name, target_language, target_script)
parameters <- list()
parameters[["names"]] <- names
parameters[["threshold"]] <- 0.75
expect_equal(check_deduplication(parameters, "name-deduplication"),
parameters)
})
test_that("The parameters fulfill the transliteration requirements", {
parameters <- list()
parameters[["content"]] <- "Mongo only pawn in game of life"
expect_equal(check_content_parameters(parameters), parameters)
})
test_that("A morphology endpoint is present", {
parameters <- list()
parameters[["content"]] <- "Rosette Api"
parameters[["morphology"]] <- "complete"
expect_equal(check_morphology(parameters), "morphology/complete")
})
test_that("The parameters object is valid", {
parameters <- list()
parameters[["content"]] <- "Rosette Api"
expect_equal(check_content_parameters(parameters), parameters)
})
test_that("The User-Agent is valid", {
version <- paste(R.Version()$platform, R.Version()$major,
R.Version()$minor, sep = ".")
ua <- paste("R", get_binding_version(), version, sep = "/")
expect_equal(get_user_agent(), ua)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.