Expected `runtime["user.self"]` <= `2.5 * runtime["elapsed"]`.
Actual comparison: 0.040 > 0.025
Difference: 0.015 > 0

test_that("jaccard_inner_join works on tiny dataset", {
test <- jaccard_inner_join(dataset_1, dataset_2, threshold = .6, n_bands = 300)
expect_true(all(test$id_1 == test$id_2, na.rm = T))
test_that("jaccard_full_join works on tiny dataset", {
test <- jaccard_full_join(dataset_1, dataset_2, threshold = .6, n_bands = 300)
test_that("jaccard_left_join works on tiny dataset", {
test <- jaccard_left_join(dataset_1, dataset_2, threshold = .6, n_bands = 300)
test_that("jaccard_right_join works on tiny dataset", {
test <- jaccard_right_join(dataset_1, dataset_2, threshold = .6, n_bands = 300)
test_that("jaccard_anti_join works on tiny dataset", {
test <- jaccard_anti_join(dataset_1, dataset_2, threshold = .6, n_bands = 300)
expect_identical(sort(test$id_1, na.last = TRUE), c(3, NA))
expect_identical(sort(test$id_2, na.last = TRUE), c(3, NA))
test_that("jaccard_inner_join gives same results as stringdist_inner_join", {
zoomer_join_out <- jaccard_inner_join(names_df, misspelled_name_df, n_gram_width = 1, threshold = .9, n_bands = 150, band_width = 5) %>%
stringdist_join_out <- stringdist_inner_join(names_df, misspelled_name_df, method = "jaccard", max_dist = .1) %>%
zoomer_join_out <- jaccard_inner_join(names_df, misspelled_name_df, n_gram_width = 1, threshold = .9, n_bands = 150, band_width = 5, similarity_column = "sim")
expect_equal(zoomer_join_out$sim, jaccard_similarity(zoomer_join_out$name.x, zoomer_join_out$name.y, ngram_width = 1))
test_that("jaccard_left_join gives same results as stringdist_inner_join", {
zoomer_join_out <- jaccard_left_join(names_df, misspelled_name_df, n_gram_width = 1, threshold = .9, n_bands = 150, band_width = 5) %>%
stringdist_join_out <- stringdist_left_join(names_df, misspelled_name_df, method = "jaccard", max_dist = .1) %>%
test_that("jaccard_right_join gives same results as stringdist_inner_join", {
zoomer_join_out <- jaccard_right_join(names_df, misspelled_name_df, n_gram_width = 1, threshold = .9, n_bands = 150, band_width = 5) %>%
stringdist_join_out <- stringdist_right_join(names_df, misspelled_name_df, method = "jaccard", max_dist = .1) %>%
test_that("Blocking Functionality works correctly for jaccard_inner_join", {
joined_block_on_one <- jaccard_inner_join(iris, iris, by = c("Species"), block_by = "Petal.Width", n_bands = 190)
joined_block_on_two <- jaccard_inner_join(iris, iris, by = c("Species"), block_by = c("Petal.Width", "Sepal.Width"), n_bands = 190)
test_that("seed works for jaccard joins", {
test_that("hamming_inner_join works on tiny dataset", {
test <- hamming_inner_join(dataset_1, dataset_2, threshold = 3, band_width = 1, n_bands = 300)
test_that("hamming_full_join works on tiny dataset", {
test <- hamming_full_join(dataset_1, dataset_2, threshold = 3, band_width = 1, n_bands = 300)
test_that("hamming_left_join works on tiny dataset", {
test <- hamming_left_join(dataset_1, dataset_2, threshold = 3, band_width = 1, n_bands = 300)
test_that("hamming_right_join works on tiny dataset", {
test <- hamming_right_join(dataset_1, dataset_2, threshold = 3, band_width = 1, n_bands = 300)
test_that("hamming_anti_join works on tiny dataset", {
test <- hamming_anti_join(dataset_1, dataset_2, threshold = 3, band_width = 1, n_bands = 300)
zoomer_join_out <- hamming_inner_join(names_df, misspelled_name_df, threshold = 3, n_bands = 100, band_width = 1) %>%
stringdist_join_out <- stringdist_inner_join(names_df, misspelled_name_df, method = "hamming", max_dist = 3) %>%
test_that("hamming: arg 'similarity_column' works", {
threshold = 3, band_width = 1, n_bands = 300,
test_that("seed works for hamming joins", {
test_that("argument `progress` works correctly", {
by = "string", threshold = .6, n_bands = 300
by = "string", threshold = .6, n_bands = 300,
test_that("nthread works for jaccard joins", {
dataset_1, dataset_2, threshold = .6, n_bands = 300, nthread=2
test_that("nthread works for hamming joins", {
dataset_1, dataset_2, threshold = 3, band_width = 1, n_bands = 300,