tests/testthat/test_text_size.R

context("check text size")
test_that("A too long text creates an error",{
  expect_error(monkeylearn_classify(request = toString(rep("lala", 400000))),
               "Each text in the request should be smaller than 500 kb")
})

test_that("Blank texts are handled properly",{
  expect_warning(monkeylearn_extract(request = "  "),
                 "You only entered blank text in the request")
  expect_message(monkeylearn_extract(request = c("  ", "I do not know what the horse is doing in the house")),
                 "The parts of your request that are only blank are not sent to the API.")


  expect_warning(monkeylearn_classify(request = "  "),
                 "You only entered blank text in the request")
  expect_message(monkeylearn_classify(request = c("  ", "I do not know what the horse is doing in the house")),
                 "The parts of your request that are only blank are not sent to the API.")
})

Try the monkeylearn package in your browser

Any scripts or data that you put into this service are public.

monkeylearn documentation built on May 30, 2017, 6:42 a.m.