tests/testthat/test_extract_ABS_data.R

In DCMSstats/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(
        example_working_file("example_working_file.xlsx")))

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

  }
)