summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2009-09-06 17:28:23 +0200
committerAndy Wingo <wingo@pobox.com>2009-12-03 15:33:09 +0100
commitd389e9661a682855e8313b37a4f08dd2d7735acc (patch)
tree2ebcb1ed2e71d9fe10e0e67628719b766f76ea17
parent78d3deb1d48eda3d5542e0bf05e5e3b517fb1754 (diff)
downloadguile-d389e9661a682855e8313b37a4f08dd2d7735acc.tar.gz
+, -, min, lcm, gcd now documented
* test-suite/tests/numbers.test: Change some xfail documented? tests to passes.
-rw-r--r--test-suite/tests/numbers.test10
1 files changed, 5 insertions, 5 deletions
diff --git a/test-suite/tests/numbers.test b/test-suite/tests/numbers.test
index 03918315e..e4cec16ca 100644
--- a/test-suite/tests/numbers.test
+++ b/test-suite/tests/numbers.test
@@ -1056,7 +1056,7 @@
(with-test-prefix "gcd"
- (expect-fail "documented?"
+ (pass-if "documented?"
(documented? gcd))
(with-test-prefix "(n)"
@@ -1241,7 +1241,7 @@
(with-test-prefix "lcm"
;; FIXME: more tests?
;; (some of these are already in r4rs.test)
- (expect-fail (documented? lcm))
+ (pass-if (documented? lcm))
(pass-if (= (lcm) 1))
(pass-if (= (lcm 32 -36) 288))
(let ((big-n 115792089237316195423570985008687907853269984665640564039457584007913129639936) ; 2 ^ 256
@@ -2339,7 +2339,7 @@
(big*4 (* fixnum-max 4))
(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 1 7 3 5)))
(pass-if (= 1 (min 7 3 5 1)))
@@ -2435,7 +2435,7 @@
(with-test-prefix "+"
- (expect-fail "documented?"
+ (pass-if "documented?"
(documented? +))
(with-test-prefix "wrong type argument"
@@ -2524,7 +2524,7 @@
(with-test-prefix "/"
- (expect-fail "documented?"
+ (pass-if "documented?"
(documented? /))
(with-test-prefix "division by zero"