tests/testthat/test_export_to_vve.R

In lansdon-qualta/RVorteksExport: Export Dataframes to 'Vorteks' Software

library(VorteksExport)

cleanup <- function(filename) {
  if(file.exists(filename))
    file.remove(filename)
}

test_that("path is correct", {
  df = data.frame(a=c(1,2,3,4,5), b=c(11,22,33,44,55))
  expect_output(ExportDataframeToVVE(df, 'mydf'), 'Vorteks Export: mydf.vvedf')
  expect_output(ExportDataframeToVVE(df), 'Vorteks Export: dataframe_export.vvedf')
  cleanup("mydf.vvedf")
  cleanup("dataframe_export.vvedf")
})
#> Test passed 😸

test_that("missing dataframe has error", {
  expect_error(ExportDataframeToVVE(), 'Invalid dataframe')
  expect_error(ExportDataframeToVVE(NULL), 'Invalid dataframe')
  expect_error(ExportDataframeToVVE("not a dataframe"), 'Invalid dataframe')
})
#> Test passed 😸

test_that("missing filename has error", {
  df = data.frame(a=c(1,2,3,4,5), b=c(11,22,33,44,55))
  expect_error(ExportDataframeToVVE(df, NULL), 'Invalid filename')
  expect_error(ExportDataframeToVVE(df, ""), 'Invalid filename')
  expect_error(ExportDataframeToVVE(df, df), 'Invalid filename')
})
#> Test passed 😸


#' Test for Windows OS
IsWindows <- function() {
  return(Sys.info()[['sysname']] == 'Windows')
}