15 stopifnot(identical(constantFoldSym(quote(pi), list(env = ce, optimize = 3)),  nameattr
17 stopifnot(identical(constantFoldSym(quote(pi), list(env = ce, optimize = 2)),  nameattr
19 stopifnot(identical(constantFoldSym(quote(pi), list(env = ce, optimize = 1)),  nameattr
21 stopifnot(identical(constantFoldSym(quote(pi), list(env = ce, optimize = 0)),  nameattr
23 stopifnot(identical(constantFold(quote(1 + 2), list(optimize = 3, env = ce)),  nameattr
25 stopifnot(identical(constantFold(quote(1 + 2), list(optimize = 2, env = ce)),  nameattr
27 stopifnot(identical(constantFold(quote(1 + 2), list(optimize = 1, env = ce)),  nameattr
29 stopifnot(identical(constantFold(quote(1 + 2), list(optimize = 0, env = ce)),  nameattr
31 stopifnot(identical(constantFold(quote(sqrt(2)), list(optimize = 3, env = ce)),  nameattr
33 stopifnot(identical(constantFold(quote(sqrt(2)), list(optimize = 2, env = ce)),  nameattr
35 stopifnot(identical(constantFold(quote(sqrt(2)), list(optimize = 1, env = ce)),  nameattr
37 stopifnot(identical(constantFold(quote(sqrt(2)), list(optimize = 0, env = ce)),  nameattr
42 stopifnot(identical(constantFoldSym(quote(pi), list(env = ce, optimize = 3)),  nameattr
44 stopifnot(identical(constantFoldSym(quote(pi), list(env = ce, optimize = 2)),  nameattr
46 stopifnot(identical(constantFoldSym(quote(pi), list(env = ce, optimize = 1)),  nameattr
48 stopifnot(identical(constantFoldSym(quote(pi), list(env = ce, optimize = 0)),  nameattr
50 stopifnot(identical(constantFold(quote(1 + 2), list(optimize = 3, env = ce)),  nameattr
52 stopifnot(identical(constantFold(quote(1 + 2), list(optimize = 2, env = ce)),  nameattr
54 stopifnot(identical(constantFold(quote(1 + 2), list(optimize = 1, env = ce)),  nameattr
56 stopifnot(identical(constantFold(quote(1 + 2), list(optimize = 0, env = ce)),  nameattr
58 stopifnot(identical(constantFold(quote(sqrt(2)), list(optimize = 3, env = ce)),  nameattr
60 stopifnot(identical(constantFold(quote(sqrt(2)), list(optimize = 2, env = ce)),  nameattr
62 stopifnot(identical(constantFold(quote(sqrt(2)), list(optimize = 1, env = ce)),  nameattr
64 stopifnot(identical(constantFold(quote(sqrt(2)), list(optimize = 0, env = ce)),  nameattr