tests/testthat/test-sentiment.r

In redmode/indicoio: A simple R Wrapper for the indico set of APIs - http://indico.io

context("Positive/Negative Sentiment Analysis")

test_that("Sentiment API returns numerical value", {
  
  test_string <- "Worst song ever."
  emotion <- sentiment(test_string)
  
  expect_is(emotion, "numeric")
})

test_that("Throws error on empty text", {
  expect_error(sentiment())
  expect_error(sentiment(""))
  expect_error(sentiment(" "))
})