tests/testthat/test_warnings.R

In suzanbaert/kycdata: Data Mutation Functions for work purposes

context("warning tests")

test_that("expect_warning on simple char", {
  char <- "test"
  expect_warning(bcsi_to_npers(char))
  expect_warning(npers_to_bcsi(char))
  expect_warning(restore_npers(char))
                   } )




test_that("expect_warning on char vector", {
  char_vector <- c("098", "098b")
  expect_warning(bcsi_to_npers(char_vector))
  expect_warning(npers_to_bcsi(char_vector))
  expect_warning(restore_npers(char_vector))
} )