1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
#!@theme_d_guile@ \
-e main -s
!#
;; Copyright (C) 2018-2019, 2025, 2026 Tommi Höynälänmaa
;; Distributed under GNU General Public License version 3,
;; see file doc/GPL-3.
(import (theme-d testing test-info))
(define gl-log-filename "run-test-programs.log")
(define (get-str-test-name i)
(string-append "test" (number->string i)))
(define (get-test-filename i split?)
(if split?
(string-append (get-str-test-name i) ".build")
(string-append (get-str-test-name i) ".go")))
(define (get-test-path i split?)
(let ((filename (get-test-filename i split?)))
(string-append "../theme-d-code/tests/" filename)))
(define (get-custom-file-path filename)
(string-append "../theme-d-code/tests/" filename))
(define (run-tests log-file)
(do ((i 1 (+ i 1))) ((> i nr-of-tests))
(if (and (not (member i no-run))
(not (member i modules)))
(let* ((path (get-test-path i #f))
(filename (get-test-filename i #f)))
(display filename log-file)
(display ": " log-file)
(display "Starting test ")
(display i)
(newline)
(if (= (system (string-append "run-theme-d-program-m -g ../theme-d-code: " path)) 0)
(display "ok" log-file)
(display "error" log-file))
(display "Finished test ")
(display i)
(newline)
(newline log-file)))))
(define (main args)
(let ((log-file (open-output-file gl-log-filename)))
(run-tests log-file)
(close log-file)))
|
