diff --git a/implementations/racket/preserves/preserves-schema/reader.rkt b/implementations/racket/preserves/preserves-schema/reader.rkt index 7b35440..aa1fde5 100644 --- a/implementations/racket/preserves/preserves-schema/reader.rkt +++ b/implementations/racket/preserves/preserves-schema/reader.rkt @@ -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))))