Add tests for issue #122.

tests/testthat/Rmd_error_test.Rmd

@@ -0,0 +1,19 @@
+---
+title: "Test"
+author: "Changcheng Li"
+date: "2017/9/23"
+output: github_document
+---
+
+## Use JuliaCall as Julia Engine in R Markdown
+
+To use `JuliaCall` package for julia engine in R Markdown document.
+Just set the engine for julia to `JuliaCall::eng_juliacall` like this:
+
+```{r setup}
+knitr::knit_engines$set(julia = JuliaCall::eng_juliacall)
+```
+
+```{julia}
+abc
+```

tests/testthat/Rmd_error_test1.Rmd

@@ -0,0 +1,20 @@
+---
+title: "Test"
+author: "Changcheng Li"
+date: "2017/9/23"
+output: github_document
+---
+
+## Use JuliaCall as Julia Engine in R Markdown
+
+To use `JuliaCall` package for julia engine in R Markdown document.
+Just set the engine for julia to `JuliaCall::eng_juliacall` like this:
+
+```{r setup}
+knitr::knit_engines$set(julia = JuliaCall::eng_juliacall)
+```
+
+```{r}
+library(JuliaCall)
+julia_command("abc")
+```

tests/testthat/test_rmd_error.R

@@ -0,0 +1,12 @@
+context("rmd error test")
+
+test_that("test error throwing in rmd", {
+    skip_on_cran()
+    skip_on_appveyor()
+
+    tmp <- tempfile(fileext = ".md")
+    expect_error(rmarkdown::render(test_path("Rmd_error_test.Rmd"),
+                                   output_file = tmp))
+    expect_error(rmarkdown::render(test_path("Rmd_error_test1.Rmd"),
+                                   output_file = tmp))
+})