Justify usage of expectation()

DavisVaughan · DavisVaughan · commit 18d248cdf871 · 2026-01-21T12:47:18.000-05:00
diff --git a/R/test-compiled-code.R b/R/test-compiled-code.R
@@ -130,6 +130,8 @@ run_cpp_tests <- function(package) {
             c(line, line, 1, 1)
           )
 
+          # There is no `fail()` equivalent for an error.
+          # We could use `stop()`, but we want to pass through a `srcref`.
           expectation(
             type = "error",
             message = exception_text,

Original file line number	Diff line number	Diff line change
`@@ -130,6 +130,8 @@ run_cpp_tests <- function(package) {`
`130`	`130`	`c(line, line, 1, 1)`
`131`	`131`	`)`
`132`	`132`
	`133`	+ # There is no `fail()` equivalent for an error.
	`134`	+ # We could use `stop()`, but we want to pass through a `srcref`.
`133`	`135`	`expectation(`
`134`	`136`	`type = "error",`
`135`	`137`	`message = exception_text,`