update tests

tests/gmp-test.R

@@ -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: