tests/testthat/test-hamming_dist.R

In zoomerjoin: Superlatively Fast Fuzzy Joins

test_that("hamming distance works", {
  testthat::skip_if_not_installed("babynames")
  require(babynames)
  require(stringdist)

  for (i in 1:20) {
    nameys <- tolower(unique(babynames$name))
    shuff_nameys <- sample(nameys, length(nameys))


    a <- hamming_distance(nameys, shuff_nameys)
    b <- stringdist(nameys, shuff_nameys, method = "hamming")

    expect_true(all((a == Inf) %in% (b == Inf)))
    expect_true(all((b == Inf) %in% (a == Inf)))

    expect_true(all(abs(a[a != Inf] - b[b != Inf]) < .01))
  }
})

test_that("nthreads argument works", {
  testthat::skip_on_cran()
  testthat::skip_if_not_installed("babynames")
  require(babynames)
  require(stringdist)

  nameys <- tolower(unique(babynames$name))
  shuff_nameys <- sample(nameys, length(nameys))
  runtime <- system.time(hamming_distance(nameys, shuff_nameys, nthread = 2))

  testthat::expect_lte(runtime['user.self'], 2.5 * runtime['elapsed'])
})