The R Project SVN R

Rev

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

Rev 58813 Rev 69940
Line 82... Line 82...
82 
stopifnot(identical(ev(quote(lc(0))), ev(quote(l(0)))))
 82 
stopifnot(identical(ev(quote(lc(0))), ev(quote(l(0)))))
83 
stopifnot(identical(ev(quote(lc(1))), ev(quote(l(1)))))
 83 
stopifnot(identical(ev(quote(lc(1))), ev(quote(l(1)))))
84 
stopifnot(identical(ev(quote(lc(2))), ev(quote(l(2)))))
 84 
stopifnot(identical(ev(quote(lc(2))), ev(quote(l(2)))))
85 
stopifnot(identical(ev(quote(lc(3))), ev(quote(l(3)))))
 85 
stopifnot(identical(ev(quote(lc(3))), ev(quote(l(3)))))
86 
stopifnot(identical(ev(quote(lc(4))), ev(quote(l(4)))))
 86 
stopifnot(identical(ev(quote(lc(4))), ev(quote(l(4)))))
- 
 
 87 
 
- 
 
 88 
l <- function(x) switch(x)
- 
 
 89 
lc <- cmpfun(l)
- 
 
 90 
 
- 
 
 91 
cw <- function(expr) tryCatch(expr, warning = function(w) w)
- 
 
 92 
 
- 
 
 93 
stopifnot(identical(cw(l(1)), cw(lc(1))))
- 
 
 94 
stopifnot(identical(cw(l("A")), cw(lc("A"))))
- 
 
 95 
suppressWarnings(stopifnot(identical(withVisible(l(1)),
- 
 
 96 
                                     withVisible(lc(1)))))
- 
 
 97 
suppressWarnings(stopifnot(identical(withVisible(l("A")),
- 
 
 98 
                                     withVisible(lc("A")))))