more tests
svn: r9673
This commit is contained in:
parent
56af42785d
commit
2fc38964e5
3
collects/tests/typed-scheme/fail/box-fail.ss
Normal file
3
collects/tests/typed-scheme/fail/box-fail.ss
Normal file
|
@ -0,0 +1,3 @@
|
|||
#lang typed-scheme
|
||||
|
||||
(let: ([x : (Boxof Number) (box "foo")]) x)
|
3
collects/tests/typed-scheme/succeed/box-num.ss
Normal file
3
collects/tests/typed-scheme/succeed/box-num.ss
Normal file
|
@ -0,0 +1,3 @@
|
|||
#lang typed-scheme
|
||||
|
||||
(let: ([x : (Boxof Number) (box 1)]) x)
|
Loading…
Reference in New Issue
Block a user