|
1 | | -;; This file is part of Proof General. -*- lexical-binding: t; -*- |
| 1 | +;;; runtest.el --- Test -*- lexical-binding: t; -*- |
| 2 | +;; |
| 3 | +;; This file is part of Proof General. |
2 | 4 | ;; |
3 | 5 | ;; © Copyright 2021 Hendrik Tews |
4 | 6 | ;; |
|
13 | 15 | ;; ert tests for parallel background compilation for Coq |
14 | 16 | ;; |
15 | 17 | ;; Test a partially successful and partially failing compilation with |
16 | | -;; coq-compile-keep-going. Check that the right files are compiled, |
17 | | -;; locked and unlocked. Check also the case, where unlocking of failed |
| 18 | +;; coq-compile-keep-going. Check that the right files are compiled, |
| 19 | +;; locked and unlocked. Check also the case, where unlocking of failed |
18 | 20 | ;; files must be delayed, because some earlier successful require job |
19 | 21 | ;; has not yet locked its ancestors. |
20 | 22 | ;; |
|
36 | 38 | ;; |
37 | 39 | ;; Rb, Rc and Rd are three different require commands in file a. The |
38 | 40 | ;; dependency e -> b is not present in test 5 and test 10 (but in all |
39 | | -;; other tests). The error always happens in file g, for test 1-5 with |
40 | | -;; coqdep, for tests 6-10 with coqc. There are 10 tests, each with |
| 41 | +;; other tests). The error always happens in file g, for test 1-5 with |
| 42 | +;; coqdep, for tests 6-10 with coqc. There are 10 tests, each with |
41 | 43 | ;; slighly different delays, in 10 versions of the sources, e.g., |
42 | 44 | ;; a1-a10, b1-b10, and so on. |
43 | 45 | ;; |
|
58 | 60 | ;; 9: RB is ready and Rd is queue waiting |
59 | 61 | ;; 10: without dependency b -> e: Rc, Rd are queue waiting, b finishes last |
60 | 62 |
|
61 | | - |
| 63 | +;;; Code: |
62 | 64 |
|
63 | 65 | ;; require cct-lib for the elisp compilation, otherwise this is present already |
64 | 66 | (require 'cct-lib "ci/compile-tests/cct-lib") |
65 | 67 |
|
66 | 68 | ;;; set configuration |
67 | 69 | (cct-configure-proof-general) |
68 | | -(configure-delayed-coq) |
| 70 | +(configure-delayed-coq) |
69 | 71 |
|
70 | 72 | (defconst pre-b-ancestors '("b" "f") |
71 | 73 | "Ancestors of b without suffixes.") |
|
76 | 78 | (defun pre-not-compiled (n) |
77 | 79 | "List of file name stems for which coqc must not be called. |
78 | 80 | Files for which coqc must not be called have an ``X'' in |
79 | | -coqc-delay. For such files `compile-test-start-delayed' would |
80 | | -create a ``.X'' file, whose absense is checked in the test." |
| 81 | +coqc-delay. For such files `compile-test-start-delayed' would |
| 82 | +create a ``.X'' file, whose absence is checked in the test." |
81 | 83 | (cond |
82 | 84 | ((< n 6) '("g" "c")) |
83 | 85 | (t '("c")))) |
@@ -140,3 +142,7 @@ create a ``.X'' file, whose absense is checked in the test." |
140 | 142 | (ert-deftest cct-failure-processing-08 () (test-failure-processing 8)) |
141 | 143 | (ert-deftest cct-failure-processing-09 () (test-failure-processing 9)) |
142 | 144 | (ert-deftest cct-failure-processing-10 () (test-failure-processing 10)) |
| 145 | + |
| 146 | +(provide 'runtest) |
| 147 | + |
| 148 | +;;; runtest.el ends here |
0 commit comments