test for explicit file names

Author: lorenzwalthert

tests/testthat/test-public_api.R

@@ -10,21 +10,24 @@ test_that("styler can style package", {
 })
 
 test_that("styler can style package and exclude some directories", {
-  capture_output(expect_true({
+  capture_output(
     styled <- style_pkg(testthat_file("public-api", "xyzpackage"),
       exclude_dirs = "tests"
     )
-    nrow(styled) == 1
-  }))
+  )
+  expect_true(nrow(styled) == 1)
+  expect_false(any(grepl("tests/testthat/test-package-xyz.R", styled$file)))
 })
 
 test_that("styler can style package and exclude some sub-directories", {
-  capture_output(expect_true({
+  capture_output(
     styled <- style_pkg(testthat_file("public-api", "xyzpackage"),
       exclude_dirs = "tests/testthat"
     )
-    nrow(styled) == 2
-  }))
+  )
+  expect_true(nrow(styled) == 2)
+  expect_true(any(grepl("tests/testthat.R", styled$file)))
+  expect_false(any(grepl("tests/testthat/test-package-xyz.R", styled$file)))
 })