mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-18 10:10:23 +02:00
Code Activity

Use define-module to keep bindings out of

Browse source 
further tests.  Use-module (test-suite lib) for stand-alone operation.
(rec): Exercise bad args.
This commit is contained in:
Kevin Ryde 2004-08-27 01:22:28 +00:00
parent d2b789516a
commit 51e15ebefd
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
test-suite/tests/srfi-31.test
View file

@ -17,10 +17,15 @@
;;;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330, ;;;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
;;;; Boston, MA 02111-1307 USA ;;;; Boston, MA 02111-1307 USA
(use-modules (srfi srfi-31)) (define-module (test-suite test-srfi-31)
#:use-module (test-suite lib)
#:use-module (srfi srfi-31))
(with-test-prefix "rec special form" (with-test-prefix "rec special form"
(pass-if-exception "bogus variable" '(misc-error . ".*")
(rec #:foo))
(pass-if "rec expressions" (pass-if "rec expressions"
(let ((ones-list (rec ones (cons 1 (delay ones))))) (let ((ones-list (rec ones (cons 1 (delay ones)))))
(and (= 1 (car ones-list)) (and (= 1 (car ones-list))