tests/testthat/test-get_productcode.R

context("test-oec.R")

test_that("get_product code works properly for a partial matching", {
  test_product <- get_productcode("fruit")
  
  expect_is(test_product, "tbl")
  expect_output(str(test_product), "6 variables")
})
pachamaltese/oec-r-package documentation built on May 10, 2019, 9:52 a.m.