From e5b6c461690920fd79c1c7bbbd5fae475904d3fd Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Tue, 8 Jun 2021 15:34:33 +0200 Subject: [PATCH] Time reader self-test --- implementations/racket/preserves/preserves-schema/reader.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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))))