rm snapshot tests (#491)

* rm snapshot tests

* bump dev version

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: r2dii.match
 Title: Tools to Match Corporate Lending Portfolios with Climate Data
-Version: 0.2.0.9002
+Version: 0.2.0.9003
 Authors@R: 
     c(person(given = "Alex",
              family = "Axthelm",

tests/testthat/test-add_sector_and_borderline.R

@@ -7,11 +7,6 @@ test_that("$borderline is of type logical", {
   )
 })
 
-test_that("outputs expected value", {
-  skip_if_r2dii_data_outdated()
-  expect_snapshot_value(add_sector_and_borderline(loanbook_demo), style = "json2")
-})
-
 test_that("returns a tibble data frame", {
   expect_s3_class(
     add_sector_and_borderline(loanbook_demo),

tests/testthat/test-helper-fake_lbk.R

@@ -16,7 +16,3 @@ test_that("fake_lbk creates new columns", {
     c(names(fake_lbk()), "new1", "new2")
   )
 })
-
-test_that("fake_lbk outputs expected value", {
-  expect_snapshot_value(fake_lbk(), style = "json2")
-})

tests/testthat/test-match_name.R

@@ -487,13 +487,6 @@ test_that("0-row output has expected column type", {
   expect_identical(lbk_types[same], out_types[same])
 })
 
-test_that("with loanbook_demo and abcd_demo outputs expected value", {
-  skip_on_ci()
-  skip_if_r2dii_data_outdated()
-  out <- match_name(loanbook_demo, abcd_demo)
-  expect_snapshot_value(round_dbl(out), style = "json2")
-})
-
 test_that("w/ mismatching sector_classification and `by_sector = FALSE` yields
           a match", {
   # Lookup code to sectors via r2dii.data::sector_classifications$code
@@ -704,7 +697,6 @@ test_that("errors if any id_loan is duplicated (#349)", {
   lbk <- fake_lbk(id_loan = duplicated)
   abcd <- fake_abcd()
 
-  expect_snapshot_error(match_name(lbk, abcd))
   expect_error(class = "duplicated_id_loan", match_name(lbk, abcd))
 })