From a0cfa4f118023d35b767a999d5a2ac4b082857b4 Mon Sep 17 00:00:00 2001 From: Samuel Mimram Date: Fri, 25 Jul 2008 15:12:53 +0200 Subject: Imported Upstream version 8.2~beta3+dfsg --- test-suite/ide/undo.v | 79 +++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 79 insertions(+) create mode 100644 test-suite/ide/undo.v (limited to 'test-suite/ide/undo.v') diff --git a/test-suite/ide/undo.v b/test-suite/ide/undo.v new file mode 100644 index 00000000..60c2e657 --- /dev/null +++ b/test-suite/ide/undo.v @@ -0,0 +1,79 @@ +(* Here are a sequences of scripts to test interactively with undo and + replay in coqide proof sessions *) + +(* Undoing arbitrary commands, as first step *) + +Theorem a : O=O. +Ltac f x := x. +assert True by trivial. +trivial. +Qed. + +(* Undoing arbitrary commands, as non-first step *) + +Theorem b : O=O. +assert True by trivial. +Ltac g x := x. +assert True by trivial. +trivial. +Qed. + +(* Undoing declarations, as first step *) +(* was bugged in 8.1 *) + +Theorem c : O=O. +Inductive T : Type := I. +trivial. +Qed. + +(* Undoing declarations, as first step *) +(* new in 8.2 *) + +Theorem d : O=O. +Definition e := O. +Definition f := O. +assert True by trivial. +trivial. +Qed. + +(* Undoing declarations, as non-first step *) +(* new in 8.2 *) + +Theorem h : O=O. +assert True by trivial. +Definition i := O. +Definition j := O. +assert True by trivial. +trivial. +Qed. + +(* Undoing declarations, interleaved with proof steps *) +(* new in 8.2 *) + +Theorem k : O=O. +assert True by trivial. +Definition l := O. +assert True by trivial. +Definition m := O. +assert True by trivial. +trivial. +Qed. + +(* Undoing declarations, interleaved with proof steps and commands *) +(* new in 8.2 *) + +Theorem n : O=O. +assert True by trivial. +Definition o := O. +Ltac h x := x. +assert True by trivial. +Focus. +Definition p := O. +assert True by trivial. +trivial. +Qed. + +(* Undoing declarations, not in proof *) + +Definition q := O. +Definition r := O. -- cgit v1.2.3