Reformat

Author: hadley

R/expect-self-test.R

@@ -24,7 +24,11 @@ capture_success_failure <- function(expr) {
     failed = function() {}
   )
 
-  list(n_success = n_success, n_failure = n_failure, last_failure = last_failure)
+  list(
+    n_success = n_success,
+    n_failure = n_failure,
+    last_failure = last_failure
+  )
 }
 
 #' Tools for testing expectations
@@ -50,9 +54,15 @@ expect_success <- function(expr) {
   } else if (status$n_success == 0) {
     fail("Expectation did not succeed")
   } else if (status$n_success > 1) {
-    fail(sprintf("Expectation succeeded %i times, instead of once", status$n_success))
+    fail(sprintf(
+      "Expectation succeeded %i times, instead of once",
+      status$n_success
+    ))
   } else if (status$n_failure > 0) {
-    fail(sprintf("Expectation failed %i times, instead of zero", status$n_failure))
+    fail(sprintf(
+      "Expectation failed %i times, instead of zero",
+      status$n_failure
+    ))
   }
 
   invisible(NULL)
@@ -73,7 +83,10 @@ expect_failure <- function(expr, message = NULL, ...) {
     # This should be impossible, but including for completeness
     fail("Expectation failed more than once")
   } else if (status$n_success != 0) {
-    fail(sprintf("Expectation succeeded %i times, instead of never", status$n_success))
+    fail(sprintf(
+      "Expectation succeeded %i times, instead of never",
+      status$n_success
+    ))
   }
 
   succeed()
@@ -87,14 +100,14 @@ expect_snapshot_failure <- function(expr) {
 }
 
 #' Test for absence of success or failure
-#' 
+#'
 #' @description
 #' `r lifecycle::badge("deprecated")`
-#' 
-#' These functions are deprecated because [expect_success()] and 
+#'
+#' These functions are deprecated because [expect_success()] and
 #' [expect_failure()] now test for exactly one success or no failures, and
 #' exactly one failure and no successes.
-#' 
+#'
 #' @keywords internal
 #' @export
 expect_no_success <- function(expr) {

tests/testthat/test-expect-known.R

@@ -12,8 +12,8 @@ test_that("uses specified width", {
 
 test_that("creates file on first run", {
   file <- withr::local_tempfile()
-  expect_known_output(cat("ok!\n"), file) |> 
-    expect_success() |> 
+  expect_known_output(cat("ok!\n"), file) |>
+    expect_success() |>
     expect_warning("Creating reference")
 
   expect_true(file.exists(file))
@@ -73,8 +73,8 @@ test_that("correctly matches to a file", {
 })
 
 test_that("first run is successful", {
-  expect_known_value(2, "two.rds") |> 
-    expect_success() |> 
+  expect_known_value(2, "two.rds") |>
+    expect_success() |>
     expect_warning("Creating reference")
   unlink("two.rds")
 })
@@ -124,8 +124,8 @@ test_that("version 3 is possible", {
 # expect_known_hash -------------------------------------------------------
 
 test_that("empty hash succeeds with warning", {
-  expect_known_hash(1:10) |> 
-    expect_success() |> 
+  expect_known_hash(1:10) |>
+    expect_success() |>
     expect_warning("No recorded hash")
 })
 

tests/testthat/test-expect-self-test.R

@@ -3,7 +3,10 @@ test_that("expect_failure() requires 1 failure and zero successes", {
 
   expect_failure(expect_failure({}))
   expect_failure(expect_failure(succeed()))
-  expect_failure(expect_failure({succeed(); fail()}))
+  expect_failure(expect_failure({
+    succeed()
+    fail()
+  }))
 })
 
 test_that("expect_failure() can optionally match message", {
@@ -13,11 +16,17 @@ test_that("expect_failure() can optionally match message", {
 
 test_that("expect_success() requires 1 success and zero failures", {
   expect_success(expect_success(succeed()))
-  
+
   expect_failure(expect_success({}))
   expect_failure(expect_success(fail()))
-  expect_failure(expect_success({succeed(); fail()}))
-  expect_failure(expect_success({succeed(); succeed()}))
+  expect_failure(expect_success({
+    succeed()
+    fail()
+  }))
+  expect_failure(expect_success({
+    succeed()
+    succeed()
+  }))
 })
 
 test_that("errors in expect_success bubble up", {