tests/testthat/test_extract_ABS_data.R

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

context("extract_ABS_data works as expected")

testxl <- file.path('testdata', 'ABS_test.xlsm')
reference <- file.path('testdata', 'test_reference_ABS.Rds')

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

    expect_message(ABS <- extract_ABS_data(testxl, sheet_name = 'New ABS Data'))

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

  }
)