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")
})
observatory-economic-complexity/oec-r documentation built on May 14, 2019, 10:31 p.m.