Error: Unknown series_type: ptinc, 992, j

test_that("wid_validate: no args returns list of NULLs", {
test_that("wid_validate: returns normalised values", {
res <- wid_validate(series_type="s", concept="ptinc", age=992, pop="j")
test_that("wid_validate: table checks error on unknown codes", {
test_that("wid_validate: age normalises and validates", {
test_that("wid_validate: areas warns on malformed codes", {
test_that("wid_is_valid: TRUE/FALSE, never throws", {
test_that("wid_decode: strict=FALSE warns but does not error", {
lst <- list(series_type="s", concept="ptinc", age="992", pop="j")
test_that("wid_search: structure and matching", {
test_that("wid_search: unknown table errors", {

"wid_validate: no args returns list of NULLs"
"wid_validate: table checks error on unknown codes"
"wid_validate: age normalises and validates"
"wid_validate: areas warns on malformed codes"
"wid_decode: strict=FALSE warns but does not error"

Expected description of ntaxre to be TRUE.
Differences:
`actual`:   FALSE
`expected`: TRUE

bounds <- regmatches(wid_percentiles$code, regexec("^p([0-9.]+)p([0-9.]+)$", wid_percentiles$code))
lo <- as.numeric(vapply(bounds, `[`, character(1L), 2L))
hi <- as.numeric(vapply(bounds, `[`, character(1L), 3L))
test_that("wid_percentiles: p99p100 described as top 1%", {
test_that("wid_percentiles: p0p100 described as entire population", {
test_that("wid_concepts: section-7 codes present", {
test_that("wid_concepts: section-7 price/exchange/ratio descriptions correct", {

"wid_percentiles: p99p100 described as top 1%"
"wid_percentiles: p0p100 described as entire population"
"wid_concepts: section-7 price/exchange/ratio descriptions correct"

wid_concepts: section-7 price/exchange/ratio descriptions correct