tests/testthat/test_extract_SIC91_data.R

In ukgovdatascience/eesectors: Functions to create DCMS Economic Estimates statistics

context("extract_SIC91_data works as expected")

testxl <- file.path('testdata', 'SIC91_test.xlsm')
reference <- file.path('testdata', 'test_reference_sic91.Rds')

test_that(
  "extract_SIC91_data can extract data from a dummy spreadsheet",
  {

    expect_message(SIC91 <- extract_SIC91_data(testxl, sheet_name = 'SIC 91 Sales Data'))

    expect_is(SIC91, c('data.frame', 'tbl', 'tbl_df'))
    expect_equal_to_reference(SIC91, reference)

  }
)