more tests
svn: r9673 original commit: 2fc38964e50d00a899c64c4517c858ad3cfaa512
This commit is contained in:
parent
f7e9881b1d
commit
0a434ecda3
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