tests/testthat/test-rstudio-test-text.R

In Data-Camp/testwhat: Easily write submission correctness tests for R exercises

context("test_text")

test_that("test_text works", {
  lst <- list()
  lst$DC_TYPE <- "MarkdownExercise"
  lst$DC_CODE <- c(my_doc.Rmd = "
---
    title: \"Testing\"
    author: \"Tester\"
    date: \"January 1, 2015\"
    output: html_document
---

    This
    is
    a
    test
    
    testing **good**
    
    ```{r}
    dim(cars)
    ```
    
    You can also embed plots, for example:
    
    ```{r, echo=FALSE}
    plot(cars)
    ```
    
    Wowww.")
  
    lst$DC_SOLUTION <- c(my_sol.Rmd = "
---
    title: \"Testing\"
    author: \"Tester\"
    date: \"January 1, 2015\"
    output: html_document
---
    
    This
    is
    a
    test
    
    testing **good**
    
    ```{r}
    dim(cars)
    ```
    
    You can also embed plots, for example:
    
    ```{r, echo=FALSE}
    plot(cars)
    ```
    
    Wowww.")
  
  lst$DC_SCT <- "test_rmd_group(1, test_text('test'))"
  output <- test_it(lst)
  passes(output)
  
  lst$DC_SCT <- "test_rmd_group(1, test_text('test', freq = 2))"
  output <- test_it(lst)
  passes(output)
  
  lst$DC_SCT <- "test_rmd_group(1, test_text('good', format = 'bold'))"
  output <- test_it(lst)
  passes(output)
  
  lst$DC_SCT <- "test_rmd_group(1, test_text('rest', not_called_msg = 'not calllled'))"
  output <- test_it(lst)
  fails(output, mess_patt = "Not calllled")
  
  lst$DC_SCT <- "test_rmd_group(1, test_text('good', freq = 2, not_called_msg = 'not called twice'))"
  output <- test_it(lst)
  fails(output, mess_patt = "Not called twice")
  
  lst$DC_SCT <- "test_rmd_group(1, test_text('good', format = 'parentheses', incorrect_msg = 'that is not correct'))"
  output <- test_it(lst)
  fails(output, mess_patt = "That is not correct")
})