mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 22:31:12 +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:20:33 +00:00
parent c581203a05
commit 8af9c4d433
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

@ -16,10 +16,15 @@
;;;; License along with this library; if not, write to 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))