tests/testthat/test-4.9-blank-lines.R

In gluedown: Wrap Vectors in Markdown Formatting

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

test_that("md_blank creates lines that are ignored (ex. 197)", {
  # https://github.github.com/gfm/#example-197
  lines <- md_softline(
    "  ",
    md_blank(),
    "aaa",
    "  ",
    md_blank(),
    md_heading("aaa"),
    md_blank(),
    "  "
  )
  md_convert(lines) %>%
    read_html() %>%
    html_node("p") %>%
    html_text() %>%
    expect_equal("aaa")
  md_convert(lines) %>%
    read_html() %>%
    html_node("h1") %>%
    html_text() %>%
    expect_equal("aaa")
})