Introduce partner and funder logos
Change-Id: I71e00aaa51c2dffe74335c7c4f170e8d507356d6
diff --git a/tests/testthat/test-branding.R b/tests/testthat/test-branding.R
new file mode 100644
index 0000000..df699b0
--- /dev/null
+++ b/tests/testthat/test-branding.R
@@ -0,0 +1,43 @@
+test_that("title slide branding works (website QR, partner_logo, funder_logo)", {
+ skip_on_cran()
+ skip_if_not_installed("qrcode")
+ skip_if_not_installed("base64enc")
+
+ logo_svg <- tempfile(fileext = ".svg")
+ writeLines(
+ '<svg xmlns="http://www.w3.org/2000/svg" width="10" height="10"><rect width="10" height="10"/></svg>',
+ logo_svg
+ )
+
+ doc <- tempfile(fileext = ".Rmd")
+ writeLines(
+ sprintf(
+ '---
+title: "Test"
+output: revealjs.ids::revealjs_presentation
+website: "https://www.ids-mannheim.de/"
+partner_logo: "%s"
+funder_logo: "%s"
+---
+
+## A slide
+',
+ logo_svg, logo_svg
+ ),
+ doc
+ )
+
+ out <- rmarkdown::render(doc, quiet = TRUE)
+ html <- paste(readLines(out, warn = FALSE), collapse = "\n")
+
+ expect_match(html, '<div class="title-qr">', fixed = TRUE)
+ expect_match(html, '<a class="qrcode" href="https://www.ids-mannheim.de/">',
+ fixed = TRUE
+ )
+ expect_match(html, "partner-logo: url(\"data:image/svg+xml;base64,",
+ fixed = TRUE
+ )
+ expect_match(html, '<img class="funder-logo" src="data:image/svg+xml;base64,',
+ fixed = TRUE
+ )
+})