tests/testthat/test-open-case-study-api.R

In s20x: Functions for University of Auckland Course STATS 201/208 Data Analysis

test_that("openCaseStudy destination argument resolver keeps legacy and camelCase names", {
  tempPath = tempfile("case-study-destination")

  expect_identical(
    getS20xInternal("resolveCaseStudyDestinationDir")(dest_dir = tempPath),
    tempPath
  )
  expect_identical(
    getS20xInternal("resolveCaseStudyDestinationDir")(destDir = tempPath),
    tempPath
  )
})

test_that("openCaseStudy destination argument resolver rejects ambiguous or unsupported arguments", {
  expect_error(
    getS20xInternal("resolveCaseStudyDestinationDir")(dest_dir = tempfile(), destDir = tempfile()),
    "Use only one of dest_dir or destDir",
    fixed = TRUE
  )
  expect_error(
    getS20xInternal("resolveCaseStudyDestinationDir")(destination = tempfile()),
    "Unsupported case study argument",
    fixed = TRUE
  )
  expect_error(
    getS20xInternal("resolveCaseStudyDestinationDir")(destDir = ""),
    "`destDir` must be a single, non-empty character string",
    fixed = TRUE
  )
})