Skip to content

Commit ea93593

Browse files
committed
Rocq: enable messages for Rocq >= 9.2
Disable Set Silent for Rocq >= 9.2, which does not print any goals any more. See also PR 21038 for Rocq. Fixes #842 #849 #843
1 parent 649f8f0 commit ea93593

File tree

2 files changed

+7
-4
lines changed

2 files changed

+7
-4
lines changed

ci/coq-tests.el

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -202,7 +202,7 @@ For example, COMMENT could be (*test-definition*)"
202202

203203
(ert-deftest 020_coq-test-definition ()
204204
;; There are no infomsgr when running silent.
205-
:expected-result :failed
205+
;; :expected-result :failed
206206
"Test *response* output after asserting a Definition."
207207
(coq-fixture-on-file
208208
(coq-test-full-path "test_stepwise.v")
@@ -401,7 +401,7 @@ For example, COMMENT could be (*test-definition*)"
401401
;; When running silent, the message about indeed failing is not
402402
;; shown. One might fix this test by checking that there is no
403403
;; error, which would be shown without Fail.
404-
:expected-result :failed
404+
;;:expected-result :failed
405405
"Test for Fail"
406406
(coq-fixture-on-file
407407
(coq-test-full-path "test_stepwise.v")
@@ -429,7 +429,7 @@ For example, COMMENT could be (*test-definition*)"
429429
;; When running silent, the message about indeed failing is not
430430
;; shown. One might fix this test by checking that there is no
431431
;; error, which would be shown without Fail.
432-
:expected-result :failed
432+
;;:expected-result :failed
433433
"Test for Fail"
434434
(coq-fixture-on-file
435435
(coq-test-full-path "test_stepwise.v")

coq/coq.el

Lines changed: 4 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -141,7 +141,10 @@ Namely, goals that do not fit in the goals window."
141141
;; keeping the current value (that may come from another file).
142142
,(format "Add Search Blacklist %s." coq-search-blacklist-current-string))
143143
'("Set Suggest Proof Using.")
144-
(if coq-run-completely-silent '("Set Silent.") ())
144+
(if (and coq-run-completely-silent
145+
(coq--version< (coq-version t) "9.2+alpha"))
146+
'("Set Silent.")
147+
())
145148
coq-user-init-cmd)
146149
"Commands for initial Coq configuration, Coq variant of `proof-shell-init-cmd'.
147150
List of commands sent to the Coq background process just after it

0 commit comments

Comments
 (0)