The R Project SVN R

Rev

Rev 54755 | Rev 66732 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 54755 Rev 56380
Line 156... Line 156...
156 
x <- iconv("fa\xE7ile a ", "latin1", "UTF-8")
 156 
x <- iconv("fa\xE7ile a ", "latin1", "UTF-8")
157 
stopifnot(identical(regexpr(" ", x), regexpr(" ", x, fixed=TRUE)))
 157 
stopifnot(identical(regexpr(" ", x), regexpr(" ", x, fixed=TRUE)))
158 
# fixed=TRUE reported match position in bytes in R <= 2.10.0
 158 
# fixed=TRUE reported match position in bytes in R <= 2.10.0
159 
stopifnot(identical(regexpr(" a", x), regexpr(" a", x, fixed=TRUE)))
 159 
stopifnot(identical(regexpr(" a", x), regexpr(" a", x, fixed=TRUE)))
160 
## always worked.
 160 
## always worked.
- 
 
 161 
 
- 
 
 162 
## this broke and segfaulted in 2.13.1 and earlier (PR#14627)
- 
 
 163 
x <- paste(rep("a ", 600), collapse="")
- 
 
 164 
testit(agrep(x, x))
- 
 
 165 
testit(agrep(x, x, max.distance=0.5))
- 
 
 166 
 
- 
 
 167 
## this is used in QC to check dependencies and was broken intermittently by TRE changes
- 
 
 168 
stopifnot(isTRUE(grepl('^[[:space:]]*(R|[[:alpha:]][[:alnum:].]*[[:alnum:]])([[:space:]]*\\(([^) ]+)[[:space:]]+([^) ]+)\\))?[[:space:]]*$', ' R (>= 2.13.0) ')))