tests/testthat/test-get_isco_code.R

In eworx-org/iscoCrosswalks: Crosswalks Between Classifications of Occupations

test_that("Match job title to ISCO code is OK!", {
  dat <- data.table::fread("data/isco_3_example.csv")
  expect_error(dat_codes <- get_isco_code(dat, lvl = 3), NA)
  expect_true(dat_codes[, all(nchar(code) == 3)])
  expect_equal(dat_codes[, class(code)], "character")
})