tests/testit/test-patterns.R

In yihui/knitr: A General-Purpose Package for Dynamic Report Generation in R

library(testit)

assert('detect_pattern() automatically detects syntax patterns', {
  (detect_pattern('<<>>=') %==% 'rnw')
  (detect_pattern('<<foo, bar=TRUE>>=') %==% 'rnw')
  (detect_pattern('% begin.rcode') %==% 'tex')
  (detect_pattern('<!--begin.rcode') %==% 'html')
  (detect_pattern('``` {r}') %==% 'md')
  (detect_pattern('asdf', 'rnw') %==% 'rnw')
  (is.null(detect_pattern('foo')))
})

assert('group_pattern() checks if a pattern contains a group', {
  (group_pattern('(.*)'))
  (!group_pattern('()'))
  (!group_pattern('abc'))
  (!group_pattern(NULL))
})

ce_rnw = all_patterns$rnw$chunk.end
assert('patterns for Rnw', {
  (grep(ce_rnw, '  @') %==% 1L) # spaces before @
  (grep(ce_rnw, '@  ') %==% 1L) # spaces after @
  (grep(ce_rnw, '@ %asdf') %==% 1L) # comments after %
  (grep(ce_rnw, '@ asdf') %==% integer()) # only spaces/comments allowed
  (grep(ce_rnw, ' @ a% sdf') %==% integer())
})

cb_md = all_patterns$md$chunk.begin
assert('patterns for md', {
  # Chunk options
  (grepl(cb_md, '```{r}'))
  (grepl(cb_md, '```{r label}'))
  (grepl(cb_md, '```{r, eval=FALSE}'))
  (grepl(cb_md, '```{awk}'))
  # Pandoc's fenced code attributes
  (!grepl(cb_md, '```{.class}'))
  (!grepl(cb_md, '```{#id}'))
  (!grepl(cb_md, '```{style="color: red"}'))
  # Pandoc's raw attribute
  (!grepl(cb_md, '```{=latex}'))
})