Commit 72830e26 authored by Antoine Lucas's avatar Antoine Lucas
Browse files

update tests

parent f1ac9e60
......@@ -47,14 +47,13 @@ test <- function(FUN, x, xlabs, out = "str", unary = FALSE)
}## end{test}
allfunctionid <- c("as.bigz","add.bigz","sub.bigz","mul.bigz",
"divq.bigz","div.bigz","mod.bigz","pow.bigz",
allfunctionid <- c("as.bigz","+","-","*",
"divq.bigz","/","%%","^",
"inv.bigz", "gcd.bigz", "gcdex", "lcm.bigz",
"as.bigq",
"add.bigq","sub.bigq","div.bigq", "mul.bigq", "pow.bigq",
"chooseZ",
"max.bigq","max.bigz","min.bigq","min.bigz","|","&","xor")
unaryfunctionid <- c("log.bigz","log2.bigz","log10.bigz","c.bigz",
"max","min","|","&","xor")
unaryfunctionid <- c("log","log2","log10","c",
"isprime","nextprime", "factorialZ",
"sizeinbase","fibnum","fibnum2","lucnum","lucnum2",
"factorize","abs","!")
......@@ -85,7 +84,7 @@ sapply(allfunctionid, numericFunName)
sapply(unaryfunctionid, numericFunName)
ex <- expression(23, "25", 2.3, -4, 4L, 0, as.bigz(34),
ex <- expression(23,as.bigz(23),as.bigq(23),c(3,23),as.bigz(c(3,23)),as.bigq(c(3,23)), "25", 2.3, -4, 4L, 0, as.bigz(34),
as.bigq(32,7), as.bigz(31,45), NULL,NA, -3L)## TODO: as.bigz(3)^700
x <- lapply(ex, eval)
## Those "numbers" in x for which arithmetic should also work in double precision:
......
This source diff could not be displayed because it is too large. You can view the blob instead.
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment