Update test-public_api.R

Author: IndrajeetPatil

tests/testthat/test-public_api.R

@@ -295,17 +295,17 @@ test_that("styler can style R and Rmd files via style_pkg()", {
   expect_false(any(grepl("RcppExports.R", msg, fixed = TRUE)))
 })
 
-test_that("style_pkg() does not style qmd files by default", {
+test_that("style_pkg() styles qmd files by default", {
   msg <- capture_output(
     style_pkg(testthat_file("public-api", "xyzpackage-qmd"))
   )
   expect_true(any(grepl("hello-world.R", msg, fixed = TRUE)))
   expect_true(any(grepl("test-package-xyz.R", msg, fixed = TRUE)))
-  expect_false(any(grepl("random.Rmd", msg, fixed = TRUE)))
-  expect_false(any(grepl("random.Rmarkdown", msg, fixed = TRUE)))
-  expect_false(any(grepl("README.Rmd", msg, fixed = TRUE)))
+  expect_true(any(grepl("random.Rmd", msg, fixed = TRUE)))
+  expect_true(any(grepl("random.Rmarkdown", msg, fixed = TRUE)))
+  expect_true(any(grepl("README.Rmd", msg, fixed = TRUE)))
   expect_false(any(grepl("RcppExports.R", msg, fixed = TRUE)))
-  expect_false(any(grepl("new.qmd", msg, fixed = TRUE)))
+  expect_true(any(grepl("new.qmd", msg, fixed = TRUE)))
 })
 
 test_that("style_pkg() can find qmd anywhere", {