summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKevin Ryde <user42@zip.com.au>2005-01-27 21:23:09 +0000
committerKevin Ryde <user42@zip.com.au>2005-01-27 21:23:09 +0000
commit2ebe323a1524ab84be203fd49214eeaa514da3db (patch)
treea219da8bc9b534c984a92d29b33f4b86023e2f44
parentc8fc38b13ba15c708479f5c6bfceb0e0f67e02ef (diff)
downloadguile-2ebe323a1524ab84be203fd49214eeaa514da3db.tar.gz
(while): Tests running in empty environment are
now "unresolved" do to workaround in while implementation.
-rw-r--r--test-suite/tests/syntax.test9
1 files changed, 8 insertions, 1 deletions
diff --git a/test-suite/tests/syntax.test b/test-suite/tests/syntax.test
index 46bf89229..1ea6ac1f6 100644
--- a/test-suite/tests/syntax.test
+++ b/test-suite/tests/syntax.test
@@ -1,6 +1,6 @@
;;;; 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
;;;; it under the terms of the GNU General Public License as published by
@@ -968,19 +968,26 @@
;; an environment with no bindings at all
(define empty-environment
(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"
+ (throw 'unresolved)
(eval `(,while #f)
empty-environment)
#t)
(pass-if "initially false"
+ (throw 'unresolved)
(eval `(,while #f
#f)
empty-environment)
#t)
(pass-if "iterating"
+ (throw 'unresolved)
(let ((cond (make-iterations-cond 3)))
(eval `(,while (,cond)
123 456)