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

A tricky case, this.

Browse Source 
svn: r18170
This commit is contained in:
Stevie Strickland 2010-02-18 23:22:51 +00:00
parent 301ac0e5f3
commit 38522f0dca
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/mzscheme/contract-test.ss
View File

@ -4313,6 +4313,21 @@
'neg)])
(send (new c%) m 3)))
;; Test that public method contracts are not checked for implication.
;; Public method contracts do not check behavioral subtyping.
;; Once interfaces have contracts, those will.
(test/spec-passed
'class/c-higher-order-method-3
'(let* ([c% (contract (class/c [m (-> any/c number? number?)])
(class object% (super-new) (define/public (m x) (zero? x)))
'pos
'neg)]
[d% (contract (class/c [m (-> any/c boolean?)])
(class c% (super-new) (define/override (m) (super m 5)))
'pos
'neg)])
(send (new d%) m)))
;
;
; ;; ;; ; ;;