diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-06-13 00:12:11 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-06-13 00:12:11 +0000 |
commit | cb18f2a89226bdc5f8f68eae217a4b61be923691 (patch) | |
tree | b9108c7bb2a39b70424c19a6982131083f8e1c10 | |
parent | c47e8cc1fd2007192267c08dada04a6c27312fbc (diff) | |
download | guile-cb18f2a89226bdc5f8f68eae217a4b61be923691.tar.gz |
* tests/numbers.test, tests/list.test: Updated for new
documentation module.
-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 |