tests/testthat/test-6.13-soft-line-breaks.R

In kiernann/gluedown: Wrap Vectors in Markdown Formatting

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

test_that("md_softline creates a single <p> tag (ex. 669)", {
  # https://github.github.com/gfm/#example-669
  x <- c("foo", "baz")
  y <- str_c(x, collapse = "\n")
  md_softline(x) %>%
    md_convert() %>%
    read_html() %>%
    html_node("p") %>%
    html_text() %>%
    expect_equal(y)
})