Timing info on test-graph-type.

test/test-graph-type.rkt

@@ -1,11 +1,11 @@
 #lang typed/racket
-
-(require phc-adt
-         (lib "phc-graph/graph-type.hl.rkt"))
+;; 1.36s
+(require phc-adt)
+;; 3.26s
+(require (lib "phc-graph/graph-type.hl.rkt"))
+;; 3.46s
 (adt-init)
-
-(provide g1)
-
+;; 3.36
 (define-graph-type g1
   [City [name : String]
         [streets : (Listof Street)]
@@ -16,7 +16,9 @@
   [Person [name : String]]
   #:invariant City.citizens._ ∈ City.streets._.houses._.owner
   #:invariant City.citizens._ ∋ City.streets._.houses._.owner)
-
+;; 5.46
+(provide g1)
+;; 5.51s
 (require (for-syntax racket/pretty
                      racket/base))
 (eval #'(begin
@@ -25,6 +27,7 @@
               (pretty-print (syntax-local-value #'g1)))
             #'(void))
           (dbg)))
+;; 5.40
 
 (require (for-syntax syntax/parse
                      "../graph-info.hl.rkt"))
@@ -37,3 +40,4 @@
             (hash-ref (graph-info-nodes (syntax-local-value #'g1)) 'City)))]))
 (dbg t-city)
 ;(define-type expected (t-city Number String Symbol 'Database 'Index))
+;; 6.76s