diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-27 17:06:31 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-27 17:06:31 +0200 |
| commit | 3f2ad7c6a7ff95693c0cf64f72ed95bb6adb3521 (patch) | |
| tree | 275075cf53c975163540363b608b6fb674489883 /tests/run-tests.scm | |
| parent | Change scroll behaviour in popups. (diff) | |
| download | calp-3f2ad7c6a7ff95693c0cf64f72ed95bb6adb3521.tar.gz calp-3f2ad7c6a7ff95693c0cf64f72ed95bb6adb3521.tar.xz | |
Minor updates.
Diffstat (limited to 'tests/run-tests.scm')
| -rwxr-xr-x | tests/run-tests.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/run-tests.scm b/tests/run-tests.scm index ded94cc5..e01fcb0b 100755 --- a/tests/run-tests.scm +++ b/tests/run-tests.scm @@ -33,11 +33,11 @@ ;; Load tests (define (read-multiple) -(let loop ((done '())) - (let ((sexp (read))) - (if (eof-object? sexp) - (reverse done) - (loop (cons sexp done)))))) + (let loop ((done '())) + (let ((sexp (read))) + (if (eof-object? sexp) + (reverse done) + (loop (cons sexp done)))))) ;; TODO test-group fails if called before any test begin, since |