tests/testthat/test-anzsco2013.R

In runapp-aus/abscorr: Ready-to-use Australian common structures and classifications and tools for working with them

library(testthat)
library(strayr)
library(dplyr)


test_that("anzsco2013 is as-expected", {
  # Check object
  expect_is(anzsco2013, "tbl_df")
  # Check non-title labels
  expect_equal(anzsco2013[[2]][1111], "Labourers")
  # Check title labels
  expect_equal(anzsco2013[[2]][721], "Community and Personal Service Workers")
  # Check digit conversion
  expect_identical(anzsco2013$anzsco_major_code,
                   substr(anzsco2013$anzsco_occupation_code, 1, 1))
  expect_identical(anzsco2013$anzsco_submajor_code,
                   substr(anzsco2013$anzsco_minor_code, 1, 2))
  # Spotcheck occupations and skill levels
  expect_equal(anzsco2013 %>%
                 filter(anzsco_occupation_code == "452311") %>%
                 pull(anzsco_occupation),
               "Diving Instructor (Open Water)")

  expect_equal(anzsco2013 %>%
                 filter(anzsco_occupation_code == "899999") %>%
                 pull(anzsco_occupation),
               "Labourers nec")

  expect_equal(anzsco2013 %>%
                 filter(anzsco_occupation_code == "631112") %>%
                 pull(skill_level) %>%
                 as.character(),
               "5")
})