tests/testthat/test-match_variety_process_fuzzy_module.R

In IdahoAgStats/factcuratoR: Functions to curate FACT data

knitroutputfolder <- testthat::test_path("test_match_variety_files",
                                         "output")

test_output_fuzzymatch <-
  read.csv(
    testthat::test_path("test_match_variety_files",
                        "test_file_marshall_output_fuzzymatch.csv"), fileEncoding = "UTF-8-BOM")

test_aux <- read.csv(
testthat::test_path("test_match_variety_files",
                      "test_file_marshall_fuzzy_aux.csv"),
  stringsAsFactors = FALSE, na.strings = c("NA", ""), fileEncoding = "UTF-8-BOM")


test_that("process_fuzzymatch() returns the correct matches", {

  test <- process_fuzzymatch(output_fuzzymatch_df = test_output_fuzzymatch,
                             aux_fuzzy_status = test_aux,
                             knitroutputfolder = knitroutputfolder)

  ans <- tibble(match = 1, nomatch = 3, check = 1, not_needed = 0)
  expect_equal(test %>% map(~nrow(.)) %>% bind_rows(), ans)
})

test_that("process_fuzzymatch() detects when var_ids don't match", {
  test_aux2 <- test_aux
  test_aux2$var_id[1] <- 0
  expect_warning(
    process_fuzzymatch(output_fuzzymatch_df = test_output_fuzzymatch,
                       aux_fuzzy_status = test_aux2,
                       knitroutputfolder = knitroutputfolder),
    "var_id has changed between the two inputs. Setting aux_fuzzy_status var_id to NA")
})


test_that("process_fuzzymatch() returns the correct matches and check type of var_id", {

  test <- process_fuzzymatch(output_fuzzymatch_df =
                               test_output_fuzzymatch %>% mutate(is_truematch = ""),
                             aux_fuzzy_status = test_aux %>% mutate(is_truematch = ""),
                             knitroutputfolder = knitroutputfolder)

  ans <- tibble(match = 0, nomatch = 0, check = 5, not_needed = 0)
  expect_equal(test %>% map(~nrow(.)) %>% bind_rows(), ans)
  expect_type(test[["nomatch"]]$var_id, "character")
})


test_that("assure_var_id() detects var_ids don't match", {

  test_aux$var_id[1] <- 0

  test <- assure_var_id(test_output_fuzzymatch, test_aux)

  expect_false(test)
})