skip tests if r2dii.data outdated

RMI-PACTA · Mar 12, 2024 · e8d98d2 · e8d98d2
1 parent f16334d
commit e8d98d2
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 7 deletions.
diff --git a/tests/testthat/test-match_name.R b/tests/testthat/test-match_name.R
@@ -725,7 +725,7 @@ test_that("allows custom `sector_classifications` via options() (#354)", {
 })
 
 test_that("with `join_id`, joins as expected (#135)", {
-
+  skip_if_r2dii_data_outdated()
   loanbook <- fake_lbk(
     name_direct_loantaker = "DL won't fuzzy match",
     name_ultimate_parent = "UP won't fuzzy match",
@@ -748,7 +748,7 @@ test_that("with `join_id`, joins as expected (#135)", {
 })
 
 test_that("with `join_id` accepts list input indicating different cols (#135)", {
-
+  skip_if_r2dii_data_outdated()
   loanbook <- fake_lbk(
     name_direct_loantaker = "DL won't fuzzy match",
     name_ultimate_parent = "UP won't fuzzy match",
@@ -772,7 +772,7 @@ test_that("with `join_id` accepts list input indicating different cols (#135)",
 })
 
 test_that("with `join_id`, outputs data with loanbook join column (#135)", {
-
+  skip_if_r2dii_data_outdated()
   # with `join_id` as character
   out <- match_name(
     fake_lbk(foo = "1"),
@@ -794,7 +794,7 @@ test_that("with `join_id`, outputs data with loanbook join column (#135)", {
 })
 
 test_that("with `join_id` and multiple matches, prefers ID (#135)", {
-
+  skip_if_r2dii_data_outdated()
   # loanbook might match at UP
   loanbook <- fake_lbk(
     name_direct_loantaker = "DL won't fuzzy match",
@@ -819,8 +819,7 @@ test_that("with `join_id` and multiple matches, prefers ID (#135)", {
 })
 
 test_that("with `join_id` and one ID match, one fuzzy match, outputs as expected (#135)", {
-
-
+  skip_if_r2dii_data_outdated()
   loanbook <- fake_lbk(
     id_loan = c("L1", "L2"), # L1 should ID match, L2 should fuzzy match
     name_direct_loantaker = "DL won't fuzzy match",

diff --git a/tests/testthat/test-prioritize.R b/tests/testthat/test-prioritize.R
@@ -236,7 +236,8 @@ test_that("with 0-row input returns 0-row input", {
   expect_no_error(prioritize(zero_row))
 })
 
-test_that("with `join_id`, outputs as expected", {
+test_that("with `match_name` with `join_id`, outputs as expected (#135)", {
+  skip_if_r2dii_data_outdated()
   lbk <- fake_lbk(id_loan = "L1", id_col = "1")
   abcd <- fake_abcd(id_col = "1")
   matched <- match_name(lbk, abcd, join_id = "id_col")