tests/testthat/test-misc.R

In quanteda/quanteda.sentiment: Sentiment Analysis using 'quanteda'

library("quanteda")

test_that("printing augmented dictionary works", {
  skip("skip until digits issue can be solved")
  expect_output(
    print(data_dictionary_AFINN, 0, 0),
    "Dictionary object with 1 key entry.\nValences set for keys: AFINN ",
    fixed = TRUE
  )

  dict <- quanteda::dictionary(list(one = list(oneA = c("a", "b"),
                                               oneB = "d"),
                                    two = c("x", "y")))
  polarity(dict) <- list(pos = "one", neg = "two")
  expect_output(
    print(dict, 0, 0),
    'Dictionary object with 2 primary key entries and 2 nested levels.\nPolarities: pos = "one"; neg = "two" ',
    fixed = TRUE
  )
})

test_that("friendly error messages work", {
  expect_error(
    textstat_polarity(0),
    "textstat_polarity() only works on character, corpus, dfm, tokens objects.",
    fixed = TRUE
  )
  expect_error(
    textstat_valence(0),
    "textstat_valence() only works on character, corpus, dfm, tokens objects.",
    fixed = TRUE
  )
})

test_that("subsetting preserves valence and polarity", {
  # expect_output(
  #   print(data_dictionary_ANEW[1], 0, 0),
  #   "Dictionary object with 1 key entry.\nValences set for keys: pleasure, arousal, dominance ",
  #   fixed = TRUE
  # )
  # expect_output(
  #   print(data_dictionary_ANEW["pleasure"], 0, 0),
  #   "Dictionary object with 1 key entry.\nValences set for keys: pleasure, arousal, dominance ",
  #   fixed = TRUE
  # )

  dict <- quanteda::dictionary(list(one = c("a", "b"),
                                    two = c("c", "d"),
                                    three = c("e", "f")))
  polarity(dict) <- list(pos = c("one", "two"), neg = "three")

  # expect_output(
  #   print(dict[c(1, 3)], 0, 0),
  #   'Dictionary object with 2 key entries.\nPolarities: pos = "one", "two"; neg = "three"',
  #   fixed = TRUE
  # )
})