From 51e15ebefda31f767ac2af666d7b80a7293fba47 Mon Sep 17 00:00:00 2001 From: Kevin Ryde Date: Fri, 27 Aug 2004 01:22:28 +0000 Subject: [PATCH] Use define-module to keep bindings out of further tests. Use-module (test-suite lib) for stand-alone operation. (rec): Exercise bad args. --- test-suite/tests/srfi-31.test | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/test-suite/tests/srfi-31.test b/test-suite/tests/srfi-31.test index 995fcd630..235ec1bd7 100644 --- a/test-suite/tests/srfi-31.test +++ b/test-suite/tests/srfi-31.test @@ -17,10 +17,15 @@ ;;;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330, ;;;; 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" + (pass-if-exception "bogus variable" '(misc-error . ".*") + (rec #:foo)) + (pass-if "rec expressions" (let ((ones-list (rec ones (cons 1 (delay ones))))) (and (= 1 (car ones-list))