Skip to content

Commit 9b07ad8

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 b82c219 commit 9b07ad8

2 files changed

Lines changed: 7 additions & 4 deletions

File tree

ci/coq-tests.el

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

202202
(ert-deftest 020_coq-test-definition ()
203203
;; There are no infomsgr when running silent.
204-
:expected-result :failed
204+
;; :expected-result :failed
205205
"Test *response* output after asserting a Definition."
206206
(coq-fixture-on-file
207207
(coq-test-full-path "test_stepwise.v")
@@ -400,7 +400,7 @@ For example, COMMENT could be (*test-definition*)"
400400
;; When running silent, the message about indeed failing is not
401401
;; shown. One might fix this test by checking that there is no
402402
;; error, which would be shown without Fail.
403-
:expected-result :failed
403+
;;:expected-result :failed
404404
"Test for Fail"
405405
(coq-fixture-on-file
406406
(coq-test-full-path "test_stepwise.v")
@@ -428,7 +428,7 @@ For example, COMMENT could be (*test-definition*)"
428428
;; When running silent, the message about indeed failing is not
429429
;; shown. One might fix this test by checking that there is no
430430
;; error, which would be shown without Fail.
431-
:expected-result :failed
431+
;;:expected-result :failed
432432
"Test for Fail"
433433
(coq-fixture-on-file
434434
(coq-test-full-path "test_stepwise.v")

coq/coq.el

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

0 commit comments

Comments
 (0)