tests/testthat/test-token_transcript.R

In highlightr: Highlight Conserved Edits Across Versions of a Document

Sys.setenv("OMP_THREAD_LIMIT" = 1)

test_that("html tags removed", {
  testing <- data.frame(text =
                          "<i> The review </i>. text with <br> a page break.<b>tag without spaces</b>.<font color='#9900FF'> color </font>")

  results <- token_transcript(testing)

  expect_identical(results[[1]], c("the", "review", "text", "with", "a", "page", "break",
                                   "tag", "without", "spaces", "color"))

})

test_that("dollar sign removed", {
  testing <- data.frame(text = c("$4.50"))

  results <- token_transcript(testing)

  expect_identical(results[[1]], c("450"))

})

test_that("period between characters removed to keep characters together", {
  testing <- data.frame(text = c("This is a sentence. No.2"))

  results <- token_transcript(testing)

  expect_identical(results[[1]], c("this","is","a","sentence","no2"))

})

test_that("comma between characters removed to keep characters together", {
  testing <- data.frame(text = c("This, is a sentence. 5,000"))

  results <- token_transcript(testing)

  expect_identical(results[[1]], c("this","is","a","sentence","5000"))

})

test_that("dash removed and separates characters", {
  testing <- data.frame(text = c("dash-name, 1877-1777"))

  results <- token_transcript(testing)

  expect_identical(results[[1]], c("dash","name", "1877", "1777"))

})