context("build-news.R")
test_that("github links are added to news items", {
path <- test_path("news-github-links")
pkg <- as_pkgdown(path)
news_tbl <- data_news(pkg)
user_link <- "<a href='http://github.com/hadley'>@hadley</a>"
issue_link <- "<a href='https://github.com/hadley/pkgdown/issues/100'>#100</a>"
expect_true(grepl(user_link, news_tbl$html))
expect_true(grepl(issue_link, news_tbl$html))
})
test_that("build_news() uses content in NEWS.md", {
pkg <- test_path("news")
expect_output(build_news(pkg))
on.exit(clean_site(pkg))
lines <- read_lines(path(pkg, "docs", "news", "index.html"))
test_strings <- c("testpackage", "1.0.0.9000", "1.0.0[^\\.]",
"sub-heading", "@githubuser", "bullet", "#111")
expect_true(all(
vapply(test_strings, function(x) any(grepl(x, lines)), logical(1))
))
})
test_that("pkg_timeline fails cleanly for unknown package", {
skip_on_cran()
expect_null(pkg_timeline("__XYZ___"))
})
test_that("correct timeline for first ggplot2 releases", {
skip_on_cran()
timeline <- pkg_timeline("ggplot2")[1:3, ]
expected <- data.frame(
version = c("0.5", "0.5.1", "0.5.2"),
date = as.Date(c("2007-06-01", "2007-06-09", "2007-06-18")),
stringsAsFactors = FALSE
)
expect_equal(timeline, expected)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.