The R Project SVN R

Rev

Rev 74515 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 74515 Rev 80066
Line 85... Line 85...
85 
stopifnot(swc(x) == sw(x))
 85 
stopifnot(swc(x) == sw(x))
86 
stopifnot(sfc(x) == sf(x))
 86 
stopifnot(sfc(x) == sf(x))
87 
 
 87 
 
88 
 
 88 
 
89 
## Check that the handlers have been associated with the correct package
 89 
## Check that the handlers have been associated with the correct package
90 
h <- ls(compiler:::inlineHandlers, all = TRUE)
 90 
h <- ls(compiler:::inlineHandlers, all.names = TRUE)
91 
p <- sub("package:", "", sapply(h, find))
 91 
p <- sub("package:", "", sapply(h, find))
92 
pp <- sapply(h, function(n) get(n, compiler:::inlineHandlers)$package)
 92 
pp <- sapply(h, function(n) get(n, compiler:::inlineHandlers)$package)
93 
stopifnot(identical(p, pp))
 93 
stopifnot(identical(p, pp))
94 
 
 94 
 
95 
 
 95