1 files changed, 89 insertions, 1 deletions
diff --git a/tests/016/ud-arith.tl b/tests/016/ud-arith.tl
index 5d07349a..35a0cb5f 100644
--- a/tests/016/ud-arith.tl
+++ b/tests/016/ud-arith.tl
@@ -65,7 +65,51 @@
   (:method ash (me arg) ^(ash ,me.v ,arg))
   (:method bit (me arg) ^(bit ,me.v ,arg))
   (:method width (me) ^(width ,me.v))
-  (:method logcount (me) ^(logcount ,me.v)))
+  (:method logcount (me) ^(logcount ,me.v))
+  (:method cbrt (me) ^(cbrt ,me.v))
+  (:method erf (me) ^(erf ,me.v))
+  (:method erfc (me) ^(erfc ,me.v))
+  (:method exp10 (me) ^(exp10 ,me.v))
+  (:method exp2 (me) ^(exp2 ,me.v))
+  (:method expm1 (me) ^(expm1 ,me.v))
+  (:method gamma (me) ^(gamma ,me.v))
+  (:method j0 (me) ^(j0 ,me.v))
+  (:method j1 (me) ^(j1 ,me.v))
+  (:method lgamma (me) ^(lgamma ,me.v))
+  (:method log1p (me) ^(log1p ,me.v))
+  (:method logb (me) ^(logb ,me.v))
+  (:method nearbyint (me) ^(nearbyint ,me.v))
+  (:method rint (me) ^(rint ,me.v))
+  (:method significand (me) ^(significand ,me.v))
+  (:method tgamma (me) ^(tgamma ,me.v))
+  (:method y0 (me) ^(y0 ,me.v))
+  (:method y1 (me) ^(y1 ,me.v))
+  (:method copysign (me arg) ^(copysign ,me.v ,arg))
+  (:method drem (me arg) ^(drem ,me.v ,arg))
+  (:method fdim (me arg) ^(fdim ,me.v ,arg))
+  (:method fmax (me arg) ^(fmax ,me.v ,arg))
+  (:method fmin (me arg) ^(fmin ,me.v ,arg))
+  (:method hypot (me arg) ^(hypot ,me.v ,arg))
+  (:method jn (me arg) ^(jn ,me.v ,arg))
+  (:method ldexp (me arg) ^(ldexp ,me.v ,arg))
+  (:method nextafter (me arg) ^(nextafter ,me.v ,arg))
+  (:method remainder (me arg) ^(remainder ,me.v ,arg))
+  (:method scalb (me arg) ^(scalb ,me.v ,arg))
+  (:method scalbln (me arg) ^(scalbln ,me.v ,arg))
+  (:method yn (me arg) ^(yn ,me.v ,arg))
+  (:method r-copysign (me arg) ^(copysign ,arg ,me.v))
+  (:method r-drem (me arg) ^(drem ,arg ,me.v))
+  (:method r-fdim (me arg) ^(fdim ,arg ,me.v))
+  (:method r-fmax (me arg) ^(fmax ,arg ,me.v))
+  (:method r-fmin (me arg) ^(fmin ,arg ,me.v))
+  (:method r-hypot (me arg) ^(hypot ,arg ,me.v))
+  (:method r-jn (me arg) ^(jn ,arg ,me.v))
+  (:method r-ldexp (me arg) ^(ldexp ,arg ,me.v))
+  (:method r-nextafter (me arg) ^(nextafter ,arg ,me.v))
+  (:method r-remainder (me arg) ^(remainder ,arg ,me.v))
+  (:method r-scalb (me arg) ^(scalb ,arg ,me.v))
+  (:method r-scalbln (me arg) ^(scalbln ,arg ,me.v))
+  (:method r-yn (me arg) ^(yn ,arg ,me.v)))
 
 (defvarl n (new numbase v 1))
 
@@ -138,5 +182,49 @@
 (test (ash n 0) (ash 1 0))
 (test (width n) (width 1))
 (test (logcount n) (logcount 1))
+(test (cbrt n) (cbrt 1))
+(test (erf n) (erf 1))
+(test (erfc n) (erfc 1))
+(test (exp10 n) (exp10 1))
+(test (exp2 n) (exp2 1))
+(test (expm1 n) (expm1 1))
+(test (gamma n) (gamma 1))
+(test (j0 n) (j0 1))
+(test (j1 n) (j1 1))
+(test (lgamma n) (lgamma 1))
+(test (log1p n) (log1p 1))
+(test (logb n) (logb 1))
+(test (nearbyint n) (nearbyint 1))
+(test (rint n) (rint 1))
+(test (significand n) (significand 1))
+(test (tgamma n) (tgamma 1))
+(test (y0 n) (y0 1))
+(test (y1 n) (y1 1))
+(test (copysign n 0) (copysign 1 0))
+(test (drem n 0) (drem 1 0))
+(test (fdim n 0) (fdim 1 0))
+(test (fmax n 0) (fmax 1 0))
+(test (fmin n 0) (fmin 1 0))
+(test (hypot n 0) (hypot 1 0))
+(test (jn n 0) (jn 1 0))
+(test (ldexp n 0) (ldexp 1 0))
+(test (nextafter n 0) (nextafter 1 0))
+(test (remainder n 0) (remainder 1 0))
+(test (scalb n 0) (scalb 1 0))
+(test (scalbln n 0) (scalbln 1 0))
+(test (yn n 0) (yn 1 0))
+(test (copysign 0 n) (copysign 0 1))
+(test (drem 0 n) (drem 0 1))
+(test (fdim 0 n) (fdim 0 1))
+(test (fmax 0 n) (fmax 0 1))
+(test (fmin 0 n) (fmin 0 1))
+(test (hypot 0 n) (hypot 0 1))
+(test (jn 0 n) (jn 0 1))
+(test (ldexp 0 n) (ldexp 0 1))
+(test (nextafter 0 n) (nextafter 0 1))
+(test (remainder 0 n) (remainder 0 1))
+(test (scalb 0 n) (scalb 0 1))
+(test (scalbln 0 n) (scalbln 0 1))
+(test (yn 0 n) (yn 0 1))
 
 (test (arithp n) t)