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

You'll gasp, you'll cheer, you'll scream! MORE TESTS.

Browse Source 
svn: r18165
This commit is contained in:
Stevie Strickland 2010-02-18 22:44:58 +00:00
parent ce04db35a0
commit b15dd9e689
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
collects/tests/mzscheme/contract-test.ss
View File

@ -4174,6 +4174,29 @@
'pos
'neg))
(test/pos-blame
'class/c-first-order-inner-3
'(contract (class/c (inner [m (-> any/c number? number?)]))
(class object% (super-new) (define/public (m x) (add1 x)))
'pos
'neg))
(test/pos-blame
'class/c-first-order-inner-4
'(contract (class/c (inner [m (-> any/c number? number?)]))
(let ([c% (class object% (super-new) (define/pubment (m x) (inner x m x)))])
(class c% (super-new) (define/augride (m x) (add1 x))))
'pos
'neg))
(test/spec-passed
'class/c-first-order-inner-5
'(contract (class/c (inner [m (-> any/c number? number?)]))
(let ([c% (class object% (super-new) (define/public (m x) (add1 x)))])
(class c% (super-new) (define/overment (m x) (+ (super m x) (inner x m x)))))
'pos
'neg))
;
;
; ;; ;; ; ;;