From 748416c1839b8ee23731407faacb8a29967dc442 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Wed, 19 Feb 2020 10:33:29 -0800 Subject: [PATCH] test --- quad/quadwriter/query.rkt | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/quad/quadwriter/query.rkt b/quad/quadwriter/query.rkt index 2db580b1..bb5b1155 100644 --- a/quad/quadwriter/query.rkt +++ b/quad/quadwriter/query.rkt @@ -164,7 +164,9 @@ (count (query doc "page[1]"))) - (andmap section-quad? (query doc "sec[*]")) - (andmap page-quad? (query doc "sec[*]:page[1]")) - (andmap line-quad? (query doc "sec[*]:page[1]:line[*]")) + (check-equal? (map count (query doc "sec[*]")) '(121 242 363)) + (check-equal? (map count (query doc "sec[*]:page[1]")) '(41 162 283)) + (check-equal? (map count (query doc "sec[2]:page[1]:line[*]")) + '(126 127 128 130 131 132 134 135 136 139 140 141 143 144 145 147 148 149 152 153 154 156 157 158 160 161 162)) + ) \ No newline at end of file