diff options
| author | Maxime Dénès | 2017-05-20 10:25:15 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2017-05-20 10:25:15 +0200 |
| commit | a2d43679596d86033ac52c16ac137d8cf2a06412 (patch) | |
| tree | 11838f2ff99007be212a6b33c2d14800612e80de | |
| parent | f3a039f7c5a8c1de41d8d4201b3f4cc702a94ba9 (diff) | |
| parent | 92e3fddf3b2b169e4853cb382f5c44d7ec9f2733 (diff) | |
Merge PR#653: Bug #5535, test for Show with -emacs
| -rw-r--r-- | test-suite/Makefile | 2 | ||||
| -rw-r--r-- | test-suite/output/Show.out | 12 | ||||
| -rw-r--r-- | test-suite/output/Show.v | 11 |
3 files changed, 24 insertions, 1 deletions
diff --git a/test-suite/Makefile b/test-suite/Makefile index c10cd4ed44..e87e133768 100644 --- a/test-suite/Makefile +++ b/test-suite/Makefile @@ -44,7 +44,7 @@ REDIR := $(if $(VERBOSE),,> /dev/null 2>&1) # read out an emacs config and look for coq-prog-args; if such exists, return it get_coq_prog_args_helper = sed -n s'/^.*coq-prog-args:[[:space:]]*(\([^)]*\)).*/\1/p' $(1) -get_coq_prog_args = $(strip $(filter-out "-emacs-U" "-emacs",$(shell $(call get_coq_prog_args_helper,$(1))))) +get_coq_prog_args = $(strip $(shell $(call get_coq_prog_args_helper,$(1)))) SINGLE_QUOTE=" #" # double up on the quotes, in a comment, to appease the emacs syntax highlighter # wrap the arguments in parens, but only if they exist diff --git a/test-suite/output/Show.out b/test-suite/output/Show.out new file mode 100644 index 0000000000..d0c963be17 --- /dev/null +++ b/test-suite/output/Show.out @@ -0,0 +1,12 @@ +3 subgoals, subgoal 1 (ID 29) + + H : 0 = 0 + ============================ + 1 = 1 + +subgoal 2 (ID 33) is: + 1 = S (S m') +subgoal 3 (ID 20) is: + S (S n') = S m +(dependent evars: (printing disabled) ) + diff --git a/test-suite/output/Show.v b/test-suite/output/Show.v new file mode 100644 index 0000000000..60faac8dd9 --- /dev/null +++ b/test-suite/output/Show.v @@ -0,0 +1,11 @@ +(* -*- mode: coq; coq-prog-args: ("-emacs") -*- *) + +(* tests of Show output with -emacs flag to coqtop; see bug 5535 *) + +Theorem nums : forall (n m : nat), n = m -> (S n) = (S m). +Proof. + intros. + induction n as [| n']. + induction m as [| m']. + Show. +Admitted. |