tests/testthat/test-oin_group.R

test_oin <- c("556000-4615", "232100-0156", "802002-4280")
test_oin_res <- c("Aktiebolag", "Stat, landsting, kommuner, f\u00F6rsamlingar", "Ideella f\u00F6reningar och stiftelser")

context("oin_group")

test_that(desc="oin_group",{
  expect_is(suppressWarnings(oin_group(oin = test_oin)), "factor")
  expect_equal(as.character(oin_group(oin = test_oin)), expected = test_oin_res)
})

Try the sweidnumbr package in your browser

Any scripts or data that you put into this service are public.

sweidnumbr documentation built on March 31, 2020, 5:24 p.m.