syndicate-lang
/
preserves
mirror of https://gitlab.com/preserves/preserves.git
1
0
Fork 1
Code Releases Activity

Time reader self-test

This commit is contained in:
Tony Garnock-Jones 2021-06-08 15:34:33 +02:00
parent 6cecf64df5
commit e5b6c46169
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
implementations/racket/preserves/preserves-schema/reader.rkt
View File

@ -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))))