1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
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}'))
})
|
