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