diff options
Diffstat (limited to 'test/runner')
| -rwxr-xr-x | test/runner | 12 |
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") |