tests/testthat/test-roc_eval_text.R

In roclang: Functions for Diffusing Function Documentations into 'Roxygen' Comments

library(testthat)
library(stringr)

fun_text <- '
#\' \\code{iris} is a `r nrow(iris)`-row matrix.
#\'
#\' \\code{iris} matrix has
#\' ```{r results="hold"}
#\' ncol(iris)
#\' ```
#\' columns.
print_iris <- function() iris
'
test_that("roc_eval_text parses diffused roxygen comments to Rd text", {
  expect_error(roc_eval_text(roxygen2::rd_roclet(), fun_text)[[1L]], NA)
})