diff options
| author | Hugo Herbelin | 2016-10-14 20:17:48 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2016-11-19 17:43:25 +0100 |
| commit | 1559f734060e49fe09d7221f63dd66e8e7d565a4 (patch) | |
| tree | 6f7317ec11a7f49d32fb5c03f717775b6ed2c671 | |
| parent | 80cfb61c8c497a2d33a6b47fcdaa9d071223a502 (diff) | |
Tests for info/debug auto/eauto.
This is while waiting for a deeper uniformization of auto, eauto, and
typeclasses eauto.
Incidentally includes a little fix in harmonizing auto/eauto printing.
| -rw-r--r-- | tactics/auto.ml | 2 | ||||
| -rw-r--r-- | test-suite/output/auto.out | 20 | ||||
| -rw-r--r-- | test-suite/output/auto.v | 11 |
3 files changed, 32 insertions, 1 deletions
diff --git a/tactics/auto.ml b/tactics/auto.ml index d4251555d8..7558a707ec 100644 --- a/tactics/auto.ml +++ b/tactics/auto.ml @@ -259,7 +259,7 @@ and erase_subtree depth = function | (d,_) :: l -> if Int.equal d depth then l else erase_subtree depth l let pr_info_atom (d,pp) = - str (String.make d ' ') ++ pp () ++ str "." + str (String.make (d-1) ' ') ++ pp () ++ str "." let pr_info_trace = function | (Info,_,{contents=(d,Some pp)::l}) -> diff --git a/test-suite/output/auto.out b/test-suite/output/auto.out new file mode 100644 index 0000000000..a5b55a9993 --- /dev/null +++ b/test-suite/output/auto.out @@ -0,0 +1,20 @@ +(* info auto: *) +simple apply or_intror (in core). + intro. + assumption. +Debug: (* debug auto: *) +Debug: * assumption. (*fail*) +Debug: * intro. (*fail*) +Debug: * simple apply or_intror (in core). (*success*) +Debug: ** assumption. (*fail*) +Debug: ** intro. (*success*) +Debug: ** assumption. (*success*) +(* info eauto: *) +simple apply or_intror. + intro. + exact H. +Debug: (* debug eauto: *) +Debug: 1 depth=5 +Debug: 1.1 depth=4 simple apply or_intror +Debug: 1.1.1 depth=4 intro +Debug: 1.1.1.1 depth=4 exact H diff --git a/test-suite/output/auto.v b/test-suite/output/auto.v new file mode 100644 index 0000000000..a77b7b82e6 --- /dev/null +++ b/test-suite/output/auto.v @@ -0,0 +1,11 @@ +(* testing info/debug auto/eauto *) + +Goal False \/ (True -> True). +info_auto. +Undo. +debug auto. +Undo. +info_eauto. +Undo. +debug eauto. +Qed. |