test: check the output numbers

1 files changed, 11 insertions, 1 deletions

diff --git a/test/runner b/test/runner
index 1748692..8d8b877 100755
--- a/test/runner
+++ b/test/runner
@@ -34,7 +34,17 @@ exec guile --debug -s "$0" "$@"
     (read-line port)  ; skip first line
     (let* ((fields (string-split (read-line port) #\tab))
            (last-field (last fields)))
-      (test-eqv 208.0 (truncate (* 1000 (string->number last-field)))))))
+      (test-eqv 208.0 (truncate (* 1000 (string->number last-field)))))
+    (test-eqv 5720672.0
+      (let loop ((line (read-line port))
+                 (sum 208.0))
+        (if (eof-object? line)
+            sum
+            (let* ((fields (string-split line #\tab))
+                   (last-field (last fields))
+                   (value (string->number last-field)))
+              (loop (read-line port)
+                    (+ sum (truncate (* 1000 value))))))))))
 (test-end "external-gemma-run")
 
 (test-end "runner")