## test-internals.R
tpl.no.htag.1 <- c("meta:", " title: No body", " author: Tester", " description: Template with no body :'-(", "inputs:", "- name: c", " class: 'character'", " label: Character input", " description: Character input", " standalone: true", "head-->")
tpl.no.htag.2 <- c("<!--head", "meta:", " title: No body", " author: Tester", " description: Template with no body :'-(", "inputs:", "- name: c", " class: 'character'", " label: Character input", " description: Character input", " standalone: true")
tpl.no.head <- c("<!--head", "head-->")
tpl.empty.head <- c("<!--head", "", " ", "\t", "\n", "head-->")
tpl.no.body <- c("<!--head", "meta:", " title: No body", " author: Tester", " description: Template with no body :'-(", "inputs:", "- name: c", " class: 'character'", " label: Character input", " description: Character input", " standalone: true", "head-->")
no.body.err.msg.re <- "What good is a template if it has no body\\? http://bit\\.ly/11E5BQM"
context('Header tags')
expect_error(rapport:::rapport.read(tpl.no.htag.1), 'Opening header tag not found in first line.')
expect_error(rapport:::rapport.read(tpl.no.htag.2), 'Closing header tag not found.')
expect_error(rapport:::rapport.read(tpl.no.head), 'Template header not found.')
expect_error(rapport:::rapport.header(tpl.empty.head), 'Template header is empty.')
context('Template body presence')
expect_error(rapport:::rapport.read(tpl.no.body), no.body.err.msg.re)
## context("Rapport internal helpers")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.