tests/testthat/test-file-upload.R

In sasquatch: Use 'SAS', R, and 'quarto' Together

test_that("uploading file to SAS", {
  skip_on_cran()
  skip_if_offline()
  skip_if_no_saspy_install()
  sas_connect_if_no_session("oda")

  local_path <- tempfile(pattern = "temp", fileext = ".sas")
  local_name <- basename(local_path)
  sas_path <- paste0("~/", local_name)

  expect_error(
    sas_file_upload(local_path, sas_path),
    "must specify an existing file",
    fixed = TRUE
  )
})

test_that("uploading file to SAS", {
  skip_on_cran()
  skip_if_offline()
  skip_if_no_saspy_install()
  sas_connect_if_no_session("oda")
  local_path <- withr::local_tempfile(
    pattern = "temp",
    fileext = ".sas",
    lines = "PROC MEANS DATA = sashelp.cars; RUN;"
  )
  withr::defer(sas_file_remove(sas_path))

  local_name <- basename(local_path)
  sas_path <- paste0("~/", local_name)

  "file exists upload"
  cat("PROC MEANS DATA = sashelp.cars; RUN;", file = local_path)
  expect_true(sas_file_upload(local_path, sas_path))
  expect_true(sas_file_exists(sas_path))
})