summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--test-suite/tests/list.test9
-rw-r--r--test-suite/tests/numbers.test22
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