test_that("upload.fun responds to venue", {
x <- reprex_document(venue = "gh")
expect_identical(x$knitr$opts_knit$upload.fun, knitr::imgur_upload)
x <- reprex_document(venue = "r")
expect_identical(x$knitr$opts_knit$upload.fun, identity)
})
test_that("ad responds to venue", {
expect_snapshot(ad("gh"))
expect_snapshot(ad("slack"))
expect_snapshot(ad("r"))
})
Generated by dwww version 1.15 on Tue Jul 2 08:39:14 CEST 2024.