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

Tests for define/contract and keyword interaction.

Browse Source
This commit is contained in:
Stevie Strickland 2013-03-12 16:52:41 -04:00
parent 6aab2f1445
commit 4119fab3ff
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
collects/tests/racket/contract-test.rktl
View File

@ -5040,7 +5040,22 @@
1) 1)
"top-level") "top-level")
(test/spec-passed
'define/contract
'(let ()
(define/contract (f x #:y [y 3])
(->* (integer?) (#:y integer?) integer?)
x)
(f 3 #:y 7)))
(test/spec-failed
'define/contract
'(let ()
(define/contract (f x #:y [y 3])
(->* (integer?) (#:y integer?) integer?)
x)
(f 3 #:y #f))
"top-level")
; ;
; ;