74 lines
2.4 KiB
Racket
74 lines
2.4 KiB
Racket
#lang racket/base
|
|
|
|
(require "test-utils.rkt"
|
|
rackunit
|
|
(rep object-rep type-rep)
|
|
(env init-envs)
|
|
(types abbrev))
|
|
|
|
(provide tests)
|
|
(gen-test-main)
|
|
|
|
(define (convert-type v)
|
|
(syntax->datum (datum->syntax #f (type->sexp v))))
|
|
(define (convert-obj v)
|
|
(syntax->datum (datum->syntax #f (object->sexp v))))
|
|
|
|
|
|
(define tests
|
|
(test-suite "Init Env"
|
|
(test-suite "Convert"
|
|
(check-equal?
|
|
(convert-type (-> -String -Symbol))
|
|
'(simple-> (list -String) -Symbol))
|
|
(check-equal?
|
|
(convert-type (make-pred-ty -String))
|
|
'(make-pred-ty (list Univ) -Boolean -String (-arg-path 0)))
|
|
(check-equal?
|
|
(convert-type (->acc (list (-lst -String)) -String (list -car)))
|
|
'(->acc (list (-lst -String)) -String (list -car)))
|
|
(check-equal?
|
|
(convert-obj (make-Path '() (cons 0 0)))
|
|
'(-arg-path 0))
|
|
(check-equal?
|
|
(convert-obj (make-Path '() (cons 1 0)))
|
|
'(-arg-path 0 1))
|
|
(check-equal?
|
|
(convert-obj (make-Path (list -car) (cons 0 0)))
|
|
'(make-Path (list -car) (cons 0 0)))
|
|
(check-equal?
|
|
(convert-type (-mu x (-lst* Univ (-box x))))
|
|
'(make-Mu 'x (make-Pair Univ (make-Pair (make-Box (make-F 'x)) -Null))))
|
|
(check-equal?
|
|
(convert-type -StructTypeTop)
|
|
'-StructTypeTop)
|
|
(check-equal?
|
|
(convert-type -BoxTop)
|
|
'-BoxTop)
|
|
(check-equal?
|
|
(convert-type -ClassTop)
|
|
'-ClassTop)
|
|
(check-equal?
|
|
(convert-type -field)
|
|
'-field)
|
|
(check-equal?
|
|
(convert-type (make-StructType (make-Struct #'foo #f null #f #f #'foo?)))
|
|
'(make-StructType
|
|
(make-Struct (quote-syntax foo) #f (list) #f #f (quote-syntax foo?))))
|
|
(check-equal?
|
|
(convert-type (make-StructTop (make-Struct #'foo #f null #f #f #'foo?)))
|
|
'(make-StructTop
|
|
(make-Struct (quote-syntax foo) #f (list) #f #f (quote-syntax foo?))))
|
|
(check-equal?
|
|
(convert-type (make-Row null null null null #f))
|
|
'(make-Row (list) (list) (list) (list) #f))
|
|
(check-equal?
|
|
(convert-type (make-Row (list (list 'foo -String #t))
|
|
(list (list 'bar -String))
|
|
null null #f))
|
|
'(make-Row (list (list 'foo -String #t))
|
|
(list (list 'bar -String))
|
|
(list) (list) #f))
|
|
)
|
|
))
|