mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

* lib.scm: Doc fixes.

Browse source
This commit is contained in:
Jim Blandy 2000-03-22 21:18:57 +00:00
parent f81e080b24
commit 05c4ba0055
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
test-suite/lib.scm
View file

@ -1,5 +1,5 @@
;;;; test-suite/lib.scm --- generic support for testing
;;;; Copyright (C) 1999 Free Software Foundation, Inc.
;;;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.
;;;;
;;;; This program is free software; you can redistribute it and/or modify
;;;; it under the terms of the GNU General Public License as published by
@ -85,12 +85,12 @@
;;;; (begin
;;;; (with-test-prefix "basic arithmetic"
;;;; (pass-if "addition" (= (+ 2 2) 4))
;;;; (pass-if "division" (= (- 4 2) 2)))
;;;; (pass-if "subtraction" (= (- 4 2) 2)))
;;;; (pass-if "multiplication" (= (* 2 2) 4)))
;;;;
;;;; In that example, the three test names are:
;;;; ("basic arithmetic" "addition"),
;;;; ("basic arithmetic" "division"), and
;;;; ("basic arithmetic" "subtraction"), and
;;;; ("multiplication").
;;;;
;;;; WITH-TEST-PREFIX can be nested. Each WITH-TEST-PREFIX postpends
@ -153,7 +153,7 @@
;;;; with-test-prefix: naming groups of tests
;;;; See the discussion of TEST
;;;; See the discussion of TEST NAMES, above.
;;; A fluid containing the current test prefix, as a list.
(define prefix-fluid (make-fluid))