diff options
author | Andy Wingo <wingo@pobox.com> | 2009-09-06 17:28:23 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-12-03 15:33:09 +0100 |
commit | d389e9661a682855e8313b37a4f08dd2d7735acc (patch) | |
tree | 2ebcb1ed2e71d9fe10e0e67628719b766f76ea17 | |
parent | 78d3deb1d48eda3d5542e0bf05e5e3b517fb1754 (diff) | |
download | guile-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.test | 10 |
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" |