tests/testthat/test-featheriseR_xls.R

In debajyoti7/featheriseR: A wrapper for easily converting files to feather format

library(featheriseR)
library(xlsx)
context("Sanctity")

test_that("number of records in input and output data is same", {
  expect_equal(dim(featheriseR_xls(system.file("examples", "applicants2.xls",
                                           package = "featheriseR"),
                                   sheet.name = 'applicants')),
               dim(read.xlsx(system.file("examples", "applicants2.xls",
                                        package = "featheriseR"),
                             sheetName = 'applicants')))

  expect_equal(colnames(featheriseR_xls(system.file("examples", "applicants2.xls",
                                               package = "featheriseR"),
                                   sheet.name = 'applicants')),
               colnames(read.xlsx(system.file("examples", "applicants2.xls",
                                         package = "featheriseR"),
                             sheetName = 'applicants')))

})


test_that("invalid inputs raises error",{

  expect_that(featheriseR_xls(system.file("examples", "applicants2.csv",
                                          package = "featheriseR"),
                              sheet.name = 'applicants'),
              throws_error())

  expect_that(featheriseR_xls(system.file("examples", "applicants2.xlsx",
                                          package = "featheriseR"),
                              sheet.name = 'applicants'),
              throws_error())
})