mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 08:40:19 +02:00
Code Activity

+, -, min, lcm, gcd now documented

Browse source 
* test-suite/tests/numbers.test: Change some xfail documented? tests to
  passes.
This commit is contained in:
Andy Wingo 2009-09-06 17:28:23 +02:00
parent 78d3deb1d4
commit d389e9661a
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
test-suite/tests/numbers.test
View file

@ -1056,7 +1056,7 @@
(with-test-prefix "gcd" (with-test-prefix "gcd"
(expect-fail "documented?" (pass-if "documented?"
(documented? gcd)) (documented? gcd))
(with-test-prefix "(n)" (with-test-prefix "(n)"
@ -1241,7 +1241,7 @@
(with-test-prefix "lcm" (with-test-prefix "lcm"
;; FIXME: more tests? ;; FIXME: more tests?
;; (some of these are already in r4rs.test) ;; (some of these are already in r4rs.test)
(expect-fail (documented? lcm)) (pass-if (documented? lcm))
(pass-if (= (lcm) 1)) (pass-if (= (lcm) 1))
(pass-if (= (lcm 32 -36) 288)) (pass-if (= (lcm 32 -36) 288))
(let ((big-n 115792089237316195423570985008687907853269984665640564039457584007913129639936) ; 2 ^ 256 (let ((big-n 115792089237316195423570985008687907853269984665640564039457584007913129639936) ; 2 ^ 256
@ -2339,7 +2339,7 @@
(big*4 (* fixnum-max 4)) (big*4 (* fixnum-max 4))
(big*5 (* fixnum-max 5))) (big*5 (* fixnum-max 5)))
(expect-fail (documented? min)) (pass-if (documented? min))
(pass-if (= 1 (min 7 3 1 5))) (pass-if (= 1 (min 7 3 1 5)))
(pass-if (= 1 (min 1 7 3 5))) (pass-if (= 1 (min 1 7 3 5)))
(pass-if (= 1 (min 7 3 5 1))) (pass-if (= 1 (min 7 3 5 1)))
@ -2435,7 +2435,7 @@
(with-test-prefix "+" (with-test-prefix "+"
(expect-fail "documented?" (pass-if "documented?"
(documented? +)) (documented? +))
(with-test-prefix "wrong type argument" (with-test-prefix "wrong type argument"
@ -2524,7 +2524,7 @@
(with-test-prefix "/" (with-test-prefix "/"
(expect-fail "documented?" (pass-if "documented?"
(documented? /)) (documented? /))
(with-test-prefix "division by zero" (with-test-prefix "division by zero"