tests/testthat/test-check-dups.R

In btskinner/crosswalkr: Rename and Encode Data Frames Using External Crosswalk Files

context('check_dups')

## get crosswalk
cw <- get_cw_file('./testdata/cw_dup.csv')

test_that('Failed to catch duplicate values in column', {

    expect_error(check_dups(cw, 'a', 'm1'))
    expect_error(check_dups(cw, 'b', 'm1'))
    expect_error(check_dups(cw, 'a', 'm2'))
    expect_error(check_dups(cw, 'b', 'm2'))

})

## get crosswalk
cw <- get_cw_file('./testdata/cw_dup_2.csv')

test_that('Failed to catch duplicate values across columns', {

    expect_error(check_dups(cw, 'b', 'c', 'm3'))

})