diff options
-rw-r--r-- | test-suite/tests/list.test | 9 | ||||
-rw-r--r-- | test-suite/tests/numbers.test | 22 |
2 files changed, 11 insertions, 20 deletions
diff --git a/test-suite/tests/list.test b/test-suite/tests/list.test index 9128c9f3d..37749677b 100644 --- a/test-suite/tests/list.test +++ b/test-suite/tests/list.test @@ -40,7 +40,7 @@ ;;;; whether to permit this exception to apply to your modifications. ;;;; If you do not wish that, delete this exception notice. -(use-modules (ice-9 doc)) +(use-modules (ice-9 documentation)) ;;; @@ -163,12 +163,7 @@ ;; Is documentation available? - (pass-if "documented?" - (let ((documented #f)) - (with-output-to-string - (lambda () - (set! documented (documentation 'append!)))) - documented)) + (pass-if "documented?" (object-documentation append!)) ;; Is the handling of empty lists as arguments correct? diff --git a/test-suite/tests/numbers.test b/test-suite/tests/numbers.test index 999a47088..8319ed1b7 100644 --- a/test-suite/tests/numbers.test +++ b/test-suite/tests/numbers.test @@ -40,7 +40,7 @@ ;;;; whether to permit this exception to apply to your modifications. ;;;; If you do not wish that, delete this exception notice. -(use-modules (ice-9 doc)) +(use-modules (ice-9 documentation)) ;;; @@ -48,12 +48,8 @@ ;;; -(define (documented? identifier) - (let ((documented #f)) - (with-output-to-string - (lambda () - (set! documented (documentation identifier)))) - documented)) +(define (documented? object) + (object-documentation object)) (define (make-test-name . args) @@ -93,7 +89,7 @@ ;; Is documentation available? (pass-if "documented?" - (documented? 'exact?)) + (documented? exact?)) ;; Special case: 0 @@ -148,7 +144,7 @@ ;; Is documentation available? (expect-fail "documented?" - (documented? 'quotient)) + (documented? quotient)) ;; Special case: 0 / n @@ -267,7 +263,7 @@ ;; Is documentation available? (expect-fail "documented?" - (documented? 'remainder)) + (documented? remainder)) ;; Special case: 0 / n @@ -386,7 +382,7 @@ ;; Is documentation available? (expect-fail "documented?" - (documented? 'modulo)) + (documented? modulo)) ;; Special case: 0 % n @@ -517,7 +513,7 @@ ;; Is documentation available? (expect-fail "documented?" - (documented? 'gcd)) + (documented? gcd)) ;; Special case: gcd 0 n @@ -668,7 +664,7 @@ ;; Is documentation available? (expect-fail "documented?" - (documented? '<)) + (documented? <)) ;; Special case: 0 < n |