tests/testthat/test-sentiment.r

In IndicoDataSolutions/IndicoIo-R: 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(" "))
})

test_that("Batch Sentiment API returns a list of numerical value", {
  test_string_arr <- c("Worst song ever.", "Best song ever.")
  emotion <- sentiment(test_string_arr)

  expect_is(emotion, "list")
  expect_equal(length(emotion), length(test_string_arr))
  expect_is(emotion[[1]], "numeric")
})