Remove tests made obsolete by safety improvements.

This commit is contained in:
Vincent St-Amour 2015-11-03 18:04:44 -06:00
parent 89a06cfae6
commit e4edf7a9ee
2 changed files with 0 additions and 24 deletions

View File

@ -41,7 +41,6 @@
"filter-tests.rkt"
"metafunction-tests.rkt"
"generalize-tests.rkt"
"rep-tests.rkt"
"prims-tests.rkt"
"tooltip-tests.rkt"
"prefab-tests.rkt"

View File

@ -1,23 +0,0 @@
#lang racket/base
;; Tests for TR representation data structures such as types
(require "test-utils.rkt"
rackunit
typed-racket/rep/rep-utils
typed-racket/rep/type-rep
typed-racket/types/abbrev)
(provide tests)
(gen-test-main)
(define tests
(test-suite
"Tests for TR IR data structures"
;; Make sure that unsafe operations return the same results as safe ones
(check-equal? (Rep-seq -String) (unsafe-Rep-seq -String))
(check-equal? (Rep-seq (-pair -String -String)) (unsafe-Rep-seq (-pair -String -String)))
(check-equal? (Type-key -String) (unsafe-Type-key -String))
(check-equal? (Type-key (-pair -String -String)) (unsafe-Type-key (-pair -String -String)))
))