The R Project SVN R

Rev

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

Rev 74512 Rev 74515
Line 100... Line 100...
100 
##                      compiler:::is.simpleInternal(get(f, "package:stats")))))
 100 
##                      compiler:::is.simpleInternal(get(f, "package:stats")))))
101 
 
 101 
 
102 
stopifnot(all(sapply(compiler:::safeBaseInternals,
 102 
stopifnot(all(sapply(compiler:::safeBaseInternals,
103 
                     function(f)
 103 
                     function(f)
104 
                     compiler:::is.simpleInternal(get(f, "package:base")))))
 104 
                     compiler:::is.simpleInternal(get(f, "package:base")))))
105 
 
 - 
 
106 
## Optimization level 3 was wrong for ~ 3 weeks from c74403 (2018-03-14) till c74510
 - 
 
107 
foo <- function() { c("bar" = TRUE) }
 - 
 
108 
(r <- cmpfun(foo, options=list(optimize = 3))())
 - 
 
109 
stopifnot(identical(r, c(bar = TRUE)))
 - 
 
110 
 
 -