HCoop
/
bpt
/
guile.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
98947fd
)
* tests/interp.test: New file.
author
Jim Blandy
<jimb@red-bean.com>
Sat, 19 Jun 1999 16:28:11 +0000
(16:28 +0000)
committer
Jim Blandy
<jimb@red-bean.com>
Sat, 19 Jun 1999 16:28:11 +0000
(16:28 +0000)
test-suite/tests/interp.test
[new file with mode: 0644]
patch
|
blob
diff --git a/test-suite/tests/interp.test
b/test-suite/tests/interp.test
new file mode 100644
(file)
index 0000000..
18218d6
--- /dev/null
+++ b/
test-suite/tests/interp.test
@@ -0,0
+1,16
@@
+;;;; interp.test --- tests for bugs in the Guile interpreter -*- scheme -*-
+;;;; We'll put a copyright on this as soon as it's big enough to copyright.
+
+(pass-if "Internal defines 1"
+ (letrec ((foo (lambda (arg)
+ (or arg (and (procedure? foo)
+ (foo 99))))))
+ (define bar (foo #f))
+ (foo #f)))
+
+(pass-if "Internal defines 2"
+ (letrec ((foo 77)
+ (bar #f)
+ (retfoo (lambda () foo)))
+ (define baz (retfoo))
+ (retfoo)))