tests/testthat/test-6.8-autolinks.R

In gluedown: Wrap Vectors in Markdown Formatting

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

test_that("md_autolink creates a <a> tag (ex. 602)", {
  # https://github.github.com/gfm/#example-602
  url <- "http://foo.bar.baz"
  md_autolink(url) %>%
    md_convert() %>%
    read_html() %>%
    html_node("a") %>%
    html_attr("href") %>%
    expect_equal(url)
})