tests/testthat/test-ratio_of_matches.R

In ropensci/textreuse: Detect Text Reuse and Document Similarity

context("Ratio of matches")

test_that("calculates the value correctly", {
  expect_equal(ratio_of_matches(1:4, 3:5), 2/3)
  expect_equal(ratio_of_matches(letters[1:3], letters[3:4]), 0.5)
  a <- sample(letters, 10, replace = TRUE)
  b <- sample(letters, 10, replace = TRUE)
  res <- ratio_of_matches(a, b)
  expect_true(0 <= res & res <= 1)
})

test_that("works with TextReuseTextDocument", {
  ny <- system.file("extdata/legal/ny1850-match.txt", package = "textreuse")
  ca <- system.file("extdata/legal/ca1851-match.txt", package = "textreuse")
  ny <- TextReuseTextDocument(ny, meta = list(id = "ny"))
  ca <- TextReuseTextDocument(ca, meta = list(id = "ca"))
  expect_is(jaccard_similarity(ny, ca), "numeric")
})