include non-R code chunks in tests

Author: lorenzwalthert

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

@@ -7,7 +7,7 @@ Some text before empty chunk
 ```
 Final text before longer code chunk
 This text chunk has multiple lines
-```{r}
+```{R}
 # random
 this(is_a_call(x))
 if (x) {

tests/testthat/rmd/r_and_non_r_code_chunks-in.Rmd

@@ -0,0 +1,18 @@
+# Header
+
+Some text.
+
+```{R}
+1+1
+```
+
+More text.
+
+```{nonR}
+I like the jungle, I like the .2'
+```
+
+```{blabla }
+I like the jungle,
+```
+

tests/testthat/rmd/r_and_non_r_code_chunks-out.Rmd

@@ -0,0 +1,18 @@
+# Header
+
+Some text.
+
+```{R}
+1 + 1
+```
+
+More text.
+
+```{nonR}
+I like the jungle, I like the .2'
+```
+
+```{blabla }
+I like the jungle,
+```
+

tests/testthat/test-rmd.R

@@ -1,10 +1,16 @@
 context("rmd")
 
 test_that("can style .Rmd files", {
-  test_collection(
-    "rmd",
+  expect_error(test_collection(
+    "rmd", "simple",
     transformer = transform_rmd,
     transformer_fun = style_text,
     write_tree = FALSE
-  )
+  ), NA)
+  expect_error(test_collection(
+    "rmd", "r_and_non_r_code_chunks",
+    transformer = transform_rmd,
+    transformer_fun = style_text,
+    write_tree = FALSE
+  ), NA)
 })