Add test case for PR 11747.

Closes PR 11747. This was fixed at some point.

original commit: e4716bd68a31f790ab7b0616feb2d4aa63e68300
This commit is contained in:
Eric Dobson 2014-03-25 19:24:06 -07:00
parent e1851074b7
commit 4ca82450a1

View File

@ -0,0 +1,26 @@
#lang typed/racket/base
(require racket/match racket/list)
(provide check-type-declarations)
(define-type type-declaration #t)
(define-type type-environment #t)
(define-type dag (HashTable Symbol (U Symbol #f)))
(: check-type-declarations ((Listof type-declaration) type-environment -> Void))
(define (check-type-declarations types env)
(: compute-reference-dag ((Listof type-declaration) dag -> dag))
(define (compute-reference-dag types dag)
(compute-reference-dag types dag))
(: cycle-exists? (Symbol dag -> Boolean))
(define (cycle-exists? symbol a-dag)
(cycle-exists? symbol a-dag))
(: reference-dag dag)
(: cycle Boolean)
(define reference-dag (compute-reference-dag types (make-immutable-hash empty)))
(define cycle (cycle-exists? 'name reference-dag))
(void))