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

(while): Tests running in empty environment are

Browse source 
now "unresolved" do to workaround in while implementation.
This commit is contained in:
Kevin Ryde 2005-01-27 21:23:09 +00:00
parent c8fc38b13b
commit 2ebe323a15
1 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

9
test-suite/tests/syntax.test
View file

@ -1,6 +1,6 @@
;;;; syntax.test --- test suite for Guile's syntactic forms -*- scheme -*- ;;;; syntax.test --- test suite for Guile's syntactic forms -*- scheme -*-
;;;; ;;;;
;;;; Copyright (C) 2001,2003,2004 Free Software Foundation, Inc. ;;;; Copyright (C) 2001,2003,2004, 2005 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This program is free software; you can redistribute it and/or modify ;;;; 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 ;;;; it under the terms of the GNU General Public License as published by
@ -968,19 +968,26 @@
;; an environment with no bindings at all ;; an environment with no bindings at all
(define empty-environment (define empty-environment
(make-module 1)) (make-module 1))
;; these tests are 'unresolved because to work with ice-9 syncase it was
;; necessary to drop the unquote from `do' in the implementation, and
;; unfortunately that makes `while' depend on its evaluation environment
(pass-if "empty body" (pass-if "empty body"
(throw 'unresolved)
(eval `(,while #f) (eval `(,while #f)
empty-environment) empty-environment)
#t) #t)
(pass-if "initially false" (pass-if "initially false"
(throw 'unresolved)
(eval `(,while #f (eval `(,while #f
#f) #f)
empty-environment) empty-environment)
#t) #t)
(pass-if "iterating" (pass-if "iterating"
(throw 'unresolved)
(let ((cond (make-iterations-cond 3))) (let ((cond (make-iterations-cond 3)))
(eval `(,while (,cond) (eval `(,while (,cond)
123 456) 123 456)