tests/testthat/test-sentiment.R

In mdneuzerling/ModelAsAPackage: Model as a Package

context("sentiment")

test_that("'bad' is bad sentiment", {
  expect_equal(sentiment("bad"), "bad")
})

test_that("'love' is good sentiment", {
  expect_equal(sentiment("love"), "good")
})