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

Disable tests for old inference.

Browse Source 
svn: r9550
This commit is contained in:
Sam Tobin-Hochstadt 2008-04-30 21:54:03 +00:00
parent 53144751d2
commit c714d0ac59
3 changed files with 10 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
collects/tests/typed-scheme/unit-tests/all-tests.ss
View File

@ -35,9 +35,7 @@
type-annotation-tests type-annotation-tests
typecheck-tests typecheck-tests
module-tests module-tests
fv-tests fv-tests))))
i2-tests
combine-tests))))
@ -50,9 +48,7 @@
type-annotation-tests type-annotation-tests
typecheck-tests typecheck-tests
module-tests module-tests
fv-tests fv-tests)
i2-tests
combine-tests)
(define (fast) (define (fast)
(run (run
@ -64,9 +60,7 @@
type-annotation-tests type-annotation-tests
typecheck-tests typecheck-tests
module-tests module-tests
fv-tests fv-tests))
i2-tests
combine-tests))
(define (faster) (define (faster)
(run (run
@ -76,9 +70,7 @@
remove-tests remove-tests
parse-type-tests parse-type-tests
type-annotation-tests type-annotation-tests
fv-tests fv-tests))
i2-tests
combine-tests))
;(go/gui) ;(go/gui)

10
collects/tests/typed-scheme/unit-tests/infer-tests.ss
View File

@ -1,12 +1,12 @@
#lang scheme/base #lang scheme/base
(require "test-utils.ss" (for-syntax scheme/base)) (require "test-utils.ss" (for-syntax scheme/base))
(require (private planet-requires type-effect-convenience type-rep unify union infer) (require (private planet-requires type-effect-convenience type-rep unify union infer-ops)
(prefix-in table: (private tables))) (prefix-in table: (private tables)))
(require (schemeunit)) (require (schemeunit))
(define (fv . args) (list)) (define (fv . args) (list))
(provide fv-tests i2-tests combine-tests) (provide fv-tests)
(define-syntax-rule (fv-t ty elems ...) (define-syntax-rule (fv-t ty elems ...)
(let ([ty* ty]) (let ([ty* ty])
@ -44,7 +44,7 @@
(define-syntax-rule (i2-f t1 t2) (define-syntax-rule (i2-f t1 t2)
(test-false (format "~a ~a" t1 t2) (test-false (format "~a ~a" t1 t2)
(f t1 t2))) (f t1 t2)))
#|
(define (i2-tests) (define (i2-tests)
(test-suite "Tests for infer" (test-suite "Tests for infer"
[i2-t (-v a) N ('a N)] [i2-t (-v a) N ('a N)]
@ -118,5 +118,5 @@
(define (s e) (define (s e)
(sort e (lambda (a b) (string<? (symbol->string (car a)) (symbol->string (car b)))))) (sort e (lambda (a b) (string<? (symbol->string (car a)) (symbol->string (car b))))))
|#
(define-go fv-tests i2-tests combine-tests) (define-go fv-tests)

2
collects/tests/typed-scheme/unit-tests/remove-intersect-tests.ss
View File

@ -1,6 +1,6 @@
#lang scheme/base #lang scheme/base
(require "test-utils.ss" (for-syntax scheme/base)) (require "test-utils.ss" (for-syntax scheme/base))
(require (private type-rep type-effect-convenience planet-requires remove-intersect unify subtype union)) (require (private type-rep type-effect-convenience planet-requires remove-intersect unify subtype union infer-ops))
(require (schemeunit)) (require (schemeunit))