`{ ... }` did not throw the expected message.

test_that("include_file works when files are found", {
temp_file1 <- tempfile(pattern = "testinclude",
temp_file2 <- tempfile(pattern = "testinclude",
writeLines("This is file 1 content.", temp_file1)
writeLines("This is file 2 content.", temp_file2)
expected <- c("This is the first line.",
test_that("include_file works when files are not found", {
test_that("include_file works with multiple files", {
temp_file1 <- tempfile(fileext = ".txt", tmpdir = ".")
temp_file2 <- tempfile(fileext = ".txt", tmpdir = ".")
anyFile <- c(FALSE, TRUE, FALSE, TRUE, FALSE)
test_that("include_file handles no files to include", {
test_that("include_file handles empty prompt", {

"include_file works when files are found"
"include_file works when files are not found"
"include_file works with multiple files"
"include_file handles no files to include"
"
              This is the second line."

`result` (`actual`) not equal to `expected` (`expected`).

    actual                              | expected                     
[1] "This is the first line."           | "This is the first line." [1]
[2] "ff:.\\testinclude1efb8561a35b.txt" - "This is file 1 content." [2]
[3] "This is the last line."            | "This is the last line."  [3]

`result` (`actual`) not equal to `expected` (`expected`).

    actual                        | expected                      
[1] "This is the first line."     | "This is the first line."  [1]
[2] "ff:.\\file1efb810111f5d.txt" - "This is file 1 content."  [2]
[3] "This is the second line."    | "This is the second line." [3]
[4] "ff:.\\file1efb833c313e1.txt" - "This is file 2 content."  [4]
[5] "This is the last line."      | "This is the last line."   [5]