Commit 1005834d authored by Antoine Lucas's avatar Antoine Lucas
Browse files

add tests

parent 622d0ae6
......@@ -53,11 +53,11 @@ allfunctionid <- c("as.bigz","add.bigz","sub.bigz","mul.bigz",
"as.bigq",
"add.bigq","sub.bigq","div.bigq", "mul.bigq", "pow.bigq",
"chooseZ",
"max.bigq","max.bigz","min.bigq","min.bigz")
"max.bigq","max.bigz","min.bigq","min.bigz","|","&","xor")
unaryfunctionid <- c("log.bigz","log2.bigz","log10.bigz","c.bigz",
"isprime","nextprime", "factorialZ",
"sizeinbase","fibnum","fibnum2","lucnum","lucnum2",
"factorize","abs")
"factorize","abs","!")
numericFunName <- function(gmpName) {
if(gmpName != (r <- sub("[ZQ]$","", gmpName)) &&
r!="as" && existsFunction(r)) # e.g. chooseZ
......
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