Time reader self-test
This commit is contained in:
parent
6cecf64df5
commit
e5b6c46169
|
@ -213,5 +213,6 @@
|
||||||
(module+ main
|
(module+ main
|
||||||
(require preserves)
|
(require preserves)
|
||||||
(require "methods.rkt")
|
(require "methods.rkt")
|
||||||
(define expected (car (file->preserves "../../../../schema/schema.bin")))
|
(define expected (car (time (file->preserves "../../../../schema/schema.bin"))))
|
||||||
(equal? expected (->preserve (file->schema "../../../../schema/schema.prs"))))
|
(define actual (time (file->schema "../../../../schema/schema.prs")))
|
||||||
|
(equal? expected (time (->preserve actual))))
|
||||||
|
|
Loading…
Reference in New Issue