tests/testthat/test-deduplicate.R

In bvreede/OAmonitor: Scoring Open Accessibility of Publications at Dutch Universities

context("deduplicate")

test_that("deduplication is performed accurately",{
  df <- tibble::tibble(
    doi = c("10.1080/00141844.2017.1362452",
            NA,
            "10.7554/elife.33864",
            "10.5553/tvp/138820662018021001001",
            "10.5553/tvp/138820662018021001001",
            "10.5553/tvp/138820662018021001001",
            NA,
            "10.5038/1911-9933.12.2.1527",
            "10.5038/1911-9933.12.2.1527",
            "10.15185/izawol.447",
            "10.15185/izawol.447",
            "10.15185/izawol.447",
            NA
            ),
    system_id = c("A1","A1","B2","A3","B3","B3","A4","B4","A4","A5","A1","A5","A1"),
    source = c("source1","source1","source2","source1","source2","source2",
                 "source1","source2","source1","source1","source2","source1","source2")
    )
  df_dedup <- deduplicate(df)
  expect_true("tbl"%in%class(df_dedup))
  expect_true(nrow(df_dedup) == 5)
})


test_that("deduplication function tests for presence of columns",{
  df <- tibble::tibble(doi = 1:10, system_id = 1:10)
  expect_error(deduplicate(df))
  df <- tibble::tibble(source = 1:10, system_id = 1:10)
  expect_error(deduplicate(df))
  df <- tibble::tibble(source = 1:10, doi = 1:10)
  expect_error(deduplicate(df))
})