(import (chicken bitwise)
        (chicken format)
        (chicken process))

(define all-tests
  '("test-init.scm"
    "test-create.scm"
    "test-comment.scm"
    "test-query.scm"
    "test-set.scm"
    "test-attach.scm"
    "test-check-db.scm"
    "test-push.scm"))

(define (run-test test-file)
  (printf "### Running ~a ...\n" test-file)
  (let ((status (arithmetic-shift
                 ;; At the time of this writing (2026-08-08), it looks
                 ;; like henrietta-cache is removing the execute bits
                 ;; of files, so explicitly run run-tests.sh as an
                 ;; argument of sh.
                 (system (sprintf "sh ./run-tests.sh ~a" (qs test-file)))
                 -8)))
    (unless (zero? status)
      (exit status))))

(for-each run-test all-tests)