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

Start the MASSIVE TESTSUITE.

Browse Source 
svn: r18157
This commit is contained in:
Stevie Strickland 2010-02-18 21:37:55 +00:00
parent 126c3958b2
commit eeb2b52731
1 changed files with 52 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4056,6 +4056,58 @@
'neg))))
;
;
; ;; ;;
; ;; ;;
; ;; ;;
; ;;;; ;; ;;;;; ;;;;; ;;;;; ;; ;;;;
; ;;;;;; ;; ;;;;;;; ;;;;;;; ;;;;;;; ;; ;;;;;;
; ;;; ;; ;; ;; ;; ;; ;; ;; ;; ;; ;;; ;;
; ;; ;; ;;;; ;;;; ;;;; ;; ;;
; ;; ;; ;;;;;; ;;;;; ;;;;; ;; ;;
; ;; ;; ;;; ;; ;;;; ;;;; ;; ;;
; ;;; ;; ;; ;; ;; ;; ;; ;; ;; ;; ;;; ;;
; ;;;;; ;; ;;;;;;; ;;;;;;; ;;;;;;; ;; ;;;;;
; ;;; ;; ;;;; ;; ;;;;; ;;;;; ;; ;;;
;
;
;
(test/spec-passed
'class/c-first-order-1
(let ()
(define/contract cls%
(class/c)
object%)
1))
;
;
; ;; ;; ; ;;
; ;; ;; ;; ;;
; ;; ;; ;;
; ;;;; ;; ;;; ;; ;;; ;;;; ;;;;; ;; ;;;;
; ;;;;;; ;;;;;;; ;; ;;;;; ;;;;;; ;;;;; ;; ;;;;;;
; ;;; ;;; ;;; ;;; ;; ;; ;; ;;; ;; ;; ;; ;;; ;;
; ;; ;; ;; ;; ;; ;;;;;;; ;; ;; ;; ;;
; ;; ;; ;; ;; ;; ;;;;;;; ;; ;; ;; ;;
; ;; ;; ;; ;; ;; ;; ;; ;; ;; ;;
; ;;; ;;; ;;; ;;; ;; ;;; ;; ;;; ;; ;; ;; ;;; ;;
; ;;;;;; ;;;;;;; ;; ;;;;; ;;;;; ;;;;;; ;;;;;
; ;;;; ;; ;;; ;; ;;; ;;; ;;;;; ;;;
; ;;
; ;;;;
; ;;;
(test/spec-passed
'object/c-first-order-1
(let ()
(define/contract o
(object/c)
(new object%))
1))
;
;
;