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

Forgot to quote the test expressions, which showed up once I added a

Browse Source 
testcase for a blame error.

svn: r18158
This commit is contained in:
Stevie Strickland 2010-02-18 21:42:20 +00:00
parent eeb2b52731
commit 6e462ecb38
1 changed files with 17 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4076,11 +4076,18 @@
(test/spec-passed (test/spec-passed
'class/c-first-order-1 'class/c-first-order-1
(let () '(let ()
(define/contract cls% (define/contract cls%
(class/c) (class/c)
object%) object%)
1)) 1))
(test/pos-blame
'class/c-first-order-2
'(contract (class/c [m (-> any/c number? number?)])
object%
'pos
'neg))
; ;
; ;
@ -4102,11 +4109,11 @@
(test/spec-passed (test/spec-passed
'object/c-first-order-1 'object/c-first-order-1
(let () '(let ()
(define/contract o (define/contract o
(object/c) (object/c)
(new object%)) (new object%))
1)) 1))
; ;
; ;