diff options
author | Ludovic Courtès <ludo@gnu.org> | 2010-03-31 14:54:43 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2010-03-31 14:54:43 +0200 |
commit | 28828f40eb8ea7e10e35aa1e83ebf37449350c08 (patch) | |
tree | 2b5e205e7381a7a10d8e44102e314ae0194bcda4 | |
parent | cedf24d8bda2439fa0b6de74a6fa4b8105d96004 (diff) | |
download | guile-28828f40eb8ea7e10e35aa1e83ebf37449350c08.tar.gz |
Move another GOOPS-less test at the beginning.
* test-suite/tests/eval.test ("promises")["extended promise
behaviour"]("implicit forcing is not supported"): Move...
* test-suite/tests/00-initial-env.test ("goopsless"): ... here.
-rw-r--r-- | test-suite/tests/00-initial-env.test | 6 | ||||
-rw-r--r-- | test-suite/tests/eval.test | 4 |
2 files changed, 5 insertions, 5 deletions
diff --git a/test-suite/tests/00-initial-env.test b/test-suite/tests/00-initial-env.test index 66d960f0b..3b3fe3aa7 100644 --- a/test-suite/tests/00-initial-env.test +++ b/test-suite/tests/00-initial-env.test @@ -41,4 +41,8 @@ (pass-if-exception "2nd argument bool" exception:wrong-type-arg - (+ 1 #f)))) + (+ 1 #f)) + + (pass-if-exception "implicit forcing is not supported" + exception:wrong-type-arg + (+ (delay (* 3 7)) 13)))) diff --git a/test-suite/tests/eval.test b/test-suite/tests/eval.test index fd5d75087..8c0652215 100644 --- a/test-suite/tests/eval.test +++ b/test-suite/tests/eval.test @@ -302,10 +302,6 @@ exception:wrong-type-arg (force 1)) - (pass-if-exception "implicit forcing is not supported" - exception:wrong-type-arg - (+ (delay (* 3 7)) 13)) - (pass-if "unmemoizing a promise" (display-backtrace (let ((stack #f)) |