suzanne.soy/phc-graph
1
0
Fork 0
Code Issues 24 Pull Requests Actions Packages Projects Releases Wiki Activity

Timing info on test-graph-type.

Browse Source
This commit is contained in:
Georges Dupéron 2017-01-26 17:18:28 +01:00
parent f500dfcb1a
commit 39e703b127
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
test/test-graph-type.rkt
View File

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