Add testcase.

Closes PR 12812.
This commit is contained in:
Eric Dobson 2013-03-24 22:40:05 -07:00
parent f3fdd5c1d7
commit d7f12d93f4

View File

@ -1622,6 +1622,9 @@
(ann (ann
((letrec ((x (lambda (acc #{ v : Symbol}) (if v (list v) acc)))) x) null (list 'bad 'prog)) ((letrec ((x (lambda (acc #{ v : Symbol}) (if v (list v) acc)))) x) null (list 'bad 'prog))
(Listof Symbol))] (Listof Symbol))]
[tc-e (filter values empty)
(-lst -Bottom)]
) )
(test-suite (test-suite
"check-type tests" "check-type tests"