chore: correct error expectation and indentation

atorus-research · Feb 15, 2024 · 1c9f556 · 1c9f556
1 parent 4467be6
commit 1c9f556
Showing 1 changed file with 7 additions and 4 deletions.
diff --git a/tests/testthat/test-write.R b/tests/testthat/test-write.R
@@ -81,7 +81,7 @@ test_that("xportr_write: expect error when file name is over 8 characters long",
  data_to_save(),
  withr::local_file(paste0(paste(letters[1:9], collapse = ""), ".xpt"))
  ),
- "`\\.df` file name must be 8 characters or less\\."
+ "\\.df file name must be 8 characters or less\\."
  )
 })
 
@@ -140,7 +140,8 @@ test_that("xportr_write: expect error when an xpt validation fails with strict_c
 
  expect_error(
  xportr_write(
- local_data, withr::local_file("xyz.xpt"),
+ local_data,
+ withr::local_file("xyz.xpt"),
  domain = "data_to_save",
  metadata = data.frame(
  dataset = "data_to_save",
@@ -159,7 +160,8 @@ test_that("xportr_write: expect warning when an xpt validation fails with strict
 
  expect_warning(
  xportr_write(
- local_data, withr::local_file("xyz.xpt"),
+ local_data,
+ withr::local_file("xyz.xpt"),
  domain = "data_to_save",
  metadata = data.frame(
  dataset = "data_to_save",
@@ -179,7 +181,8 @@ test_that("xportr_write: Capture errors by haven and report them as such", {
  expect_error(
  suppressWarnings(
  xportr_write(
- local_data, withr::local_file("xyz.xpt"),
+ local_data,
+ withr::local_file("xyz.xpt"),
  domain = "data_to_save",
  metadata = data.frame(
  dataset = "data_to_save",