suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added test for multiple functions

Browse Source 
original commit: 4f0039654f1a64984f45973f8b5dcbd8ba71bb8d
This commit is contained in:
Robby Findler 2001-11-12 18:45:43 +00:00
parent b70d7df263
commit 10ff0f1e62
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/tests/mzscheme/pconvert.ss
View File

@ -445,7 +445,8 @@
(lambda (x)
(parameterize ([use-numbered-names pv])
(print-convert x))))])
(test '(lambda (a1) ...) (pc #f) (let ([f (lambda (x) x)]) f))
(test 'f_1 (pc #t) (let ([f (lambda (x) x)]) f))
(test '(lambda (a1) ...) (pc #f) (let ([f (lambda (x) x)]) f)))
(test '(list f_2 f_3) (pc #t) (let ([g (lambda (y) (let ([f (lambda (x) y)]) f))]) (list (g 1) (g 2)))))
(report-errs)