tests/testthat/test-6.14-textual-content.R

In gluedown: Wrap Vectors in Markdown Formatting

library(testthat)
library(gluedown)
library(rvest)
library(glue)

test_that("md_text creates a vector of glue class", {
   expect_s3_class(md_text("foo"), "glue")
})

test_that("md_text creates plain textual content (ex. 671)", {
  # https://github.github.com/gfm/#example-671
  text <- "hello $.;'there"
  md_text(text) %>%
    md_convert() %>%
    read_html() %>%
    html_node("p") %>%
    html_text() %>%
    expect_equal(text)
})