Add tests for styling Rmd file

Author: jonmcalder

tests/testthat/public-api/xyzfile_rmd/random.Rmd

@@ -0,0 +1,18 @@
+Some text
+```{r}
+# Some R code
+f <- function(x) {
+  x
+}
+```
+More text
+```{r}
+# More R code
+g <- function(y) {
+  y
+}
+```
+Final text
+```{r}
+1 + 2
+```

tests/testthat/public-api/xyzfile_rmd/random2.Rmd

@@ -0,0 +1,18 @@
+```{r}
+# Start with chunk
+```
+Some text before empty chunk
+```{r}
+
+```
+Final text before longer code chunk
+This text chunk has multiple lines
+```{r}
+# random
+this(is_a_call(x))
+if (x) {
+  r()
+  a    <- 3
+  bcds <- 5
+}
+```

tests/testthat/public-api/xyzfile_rmd/random3.Rmd

@@ -0,0 +1,17 @@
+Some text
+```{r}
+# Some R code
+f <- function(x) {
+  x
+}
+```
+More text before malformed chunk
+# More R code
+g <- function(y) {
+  y
+}
+```
+Final text
+```{r}
+1 + 2
+```

tests/testthat/public-api/xyzfile_rmd/random4.Rmd

@@ -0,0 +1,17 @@
+Some text
+```{r}
+# Some R code
+f <- function(x) {
+  x
+}
+```
+More text
+```{r}
+# More R code which is invalid
+g <- function(y) {
+  y
+```
+Final text
+```{r}
+1 + 2
+```

tests/testthat/test-public_api.R

@@ -27,3 +27,23 @@ test_that("styler does not return error when there is no file to style", {
 
 # styling active region cannot be tested automatically since
 # rstudioapi::insertText() needs the context id.
+
+context("public API - Rmd")
+
+test_that("styler can style Rmd file", {
+  expect_false(
+    style_file(testthat_file("public-api", "xyzfile_rmd", "random.Rmd"), strict = FALSE)
+  )
+  expect_false(
+    style_file(testthat_file("public-api", "xyzfile_rmd", "random2.Rmd"), strict = FALSE)
+  )
+})
+
+test_that("styler handles malformed Rmd file and invalid R code in chunk", {
+  expect_warning(
+    style_file(testthat_file("public-api", "xyzfile_rmd", "random3.Rmd"), strict = FALSE)
+  )
+  expect_warning(
+    style_file(testthat_file("public-api", "xyzfile_rmd", "random4.Rmd"), strict = FALSE)
+  )
+})