mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Move another GOOPS-less test at the beginning.

Browse source 
* test-suite/tests/eval.test ("promises")["extended promise
  behaviour"]("implicit forcing is not supported"): Move...
* test-suite/tests/00-initial-env.test ("goopsless"): ... here.
This commit is contained in:
Ludovic Courtès 2010-03-31 14:54:43 +02:00
parent cedf24d8bd
commit 28828f40eb
2 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
test-suite/tests/00-initial-env.test
View file

@ -41,4 +41,8 @@
(pass-if-exception "2nd argument bool" (pass-if-exception "2nd argument bool"
exception:wrong-type-arg exception:wrong-type-arg
(+ 1 #f)))) (+ 1 #f))
(pass-if-exception "implicit forcing is not supported"
exception:wrong-type-arg
(+ (delay (* 3 7)) 13))))

4
test-suite/tests/eval.test
View file

@ -302,10 +302,6 @@
exception:wrong-type-arg exception:wrong-type-arg
(force 1)) (force 1))
(pass-if-exception "implicit forcing is not supported"
exception:wrong-type-arg
(+ (delay (* 3 7)) 13))
(pass-if "unmemoizing a promise" (pass-if "unmemoizing a promise"
(display-backtrace (display-backtrace
(let ((stack #f)) (let ((stack #f))