--- numbers.test.~1.25.~ 2003-06-05 02:10:17.000000000 +1000 +++ numbers.test 2003-06-08 17:18:43.000000000 +1000 @@ -1863,10 +1863,30 @@ ;;; truncate ;;; +(with-test-prefix "trunc" + (pass-if "0.5" + (= 0 (trunc 0.5))) + (pass-if "1.5" + (= 2 (trunc 1.5))) + (pass-if "-0.5" + (= 0 (trunc -1.5))) + (pass-if "-1.5" + (= -2 (trunc -1.5)))) + ;;; ;;; round ;;; +(with-test-prefix "round" + (pass-if "0.5" + (= 1 (round 0.5))) + (pass-if "1.5" + (= 2 (round 1.5))) + (pass-if "-0.5" + (= -2 (round -1.5))) + (pass-if "-1.5" + (= -1 (round -1.5)))) + ;;; ;;; exact->inexact ;;; @@ -1890,6 +1910,27 @@ (pass-if "(= 1 (expt 0.0 0.0))" (= 1 (expt 0.0 0.0)))) ;;; +;;; asinh +;;; + +(with-test-prefix "asinh" + (pass-if "0" (= 0 (asinh 0)))) + +;;; +;;; acosh +;;; + +(with-test-prefix "acosh" + (pass-if "1" (= 0 (acosh 1)))) + +;;; +;;; atanh +;;; + +(with-test-prefix "atanh" + (pass-if "0" (= 0 (atanh 0)))) + +;;; ;;; make-rectangular ;;;