From 6c78b5575caa3257463c0a2654db3fb826de11ee Mon Sep 17 00:00:00 2001
From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Wed, 15 Jun 2005 17:05:53 +0000
Subject: [PATCH] * parsing errors in tests were not detected and the rest of
 the file was   ignored!!!! Tests fixed * a few interactive tests moved to
 tests/interactive to avoid regression   testing over them (for now...)

---
 helm/matita/tests/apply.ma                   | 4 ++--
 helm/matita/tests/comments.ma                | 8 +-------
 helm/matita/tests/fguidi.ma                  | 4 +++-
 helm/matita/tests/{ => interactive}/test5.ma | 4 ++--
 helm/matita/tests/{ => interactive}/test6.ma | 4 ++--
 helm/matita/tests/{ => interactive}/test7.ma | 4 ++--
 helm/matita/tests/test4.ma                   | 8 ++------
 7 files changed, 14 insertions(+), 22 deletions(-)
 rename helm/matita/tests/{ => interactive}/test5.ma (63%)
 rename helm/matita/tests/{ => interactive}/test6.ma (57%)
 rename helm/matita/tests/{ => interactive}/test7.ma (70%)

diff --git a/helm/matita/tests/apply.ma b/helm/matita/tests/apply.ma
index d1be8262f..757d34769 100644
--- a/helm/matita/tests/apply.ma
+++ b/helm/matita/tests/apply.ma
@@ -1,4 +1,4 @@
-%% test _with_ the WHD on the apply argument
+(* test _with_ the WHD on the apply argument *)
 
 alias id "not" = "cic:/Coq/Init/Logic/not.con".
 alias id "False" = "cic:/Coq/Init/Logic/False.ind#xpointer(1/1)".
@@ -11,7 +11,7 @@ apply H.
 assumption.
 qed.
 
-%% test _without_ the WHD on the apply argument
+(* test _without_ the WHD on the apply argument *)
 
 alias symbol "eq" (instance 0) = "leibnitz's equality".
 
diff --git a/helm/matita/tests/comments.ma b/helm/matita/tests/comments.ma
index baf461d9a..0f642d891 100644
--- a/helm/matita/tests/comments.ma
+++ b/helm/matita/tests/comments.ma
@@ -12,8 +12,6 @@
 (*                                                                          *)
 (****************************************************************************)
 
-%% commento segato dal lexer
-
 (* commento che va nell'ast, ma non viene contato
     come step perche' non e' un executable
 *)
@@ -22,18 +20,14 @@ alias num (instance 0) = "natural number".
 alias symbol "eq" (instance 0) = "leibnitz's equality".
 theorem a:0=0.
 
-%% commento segato dal lexer
 (* nota *)
 (**
 
 
-%% questo lo si vuole tenere anche dopo la hint
-hint.
+apply Prop.
 *)
 reflexivity.
 (* commenti che non devono essere colorati perche'
    non c'e' nulla di eseguibile dopo di loro
 *)
 qed.
-
-%% EOF
diff --git a/helm/matita/tests/fguidi.ma b/helm/matita/tests/fguidi.ma
index 623e327f9..284a700e7 100644
--- a/helm/matita/tests/fguidi.ma
+++ b/helm/matita/tests/fguidi.ma
@@ -89,6 +89,8 @@ theorem le_gen_S_S_cc: \forall m,n. (le m n) \to (le (S m) (S n)).
 intros. auto.
 qed.
 
+(*
 theorem pippo: \forall m,n. (le (S m) (S n)) \to (le m n).
 intros.
-lapply le_gen_S_x.
\ No newline at end of file
+lapply le_gen_S_x.
+*)
diff --git a/helm/matita/tests/test5.ma b/helm/matita/tests/interactive/test5.ma
similarity index 63%
rename from helm/matita/tests/test5.ma
rename to helm/matita/tests/interactive/test5.ma
index 928402a53..537df88b6 100644
--- a/helm/matita/tests/test5.ma
+++ b/helm/matita/tests/interactive/test5.ma
@@ -1,5 +1,5 @@
-instance 
+whelp instance 
   \lambda A:Set. 
   \lambda f: A \to A \to A.
   \forall x,y : A.
-      f x y = f y x.
\ No newline at end of file
+      f x y = f y x.
diff --git a/helm/matita/tests/test6.ma b/helm/matita/tests/interactive/test6.ma
similarity index 57%
rename from helm/matita/tests/test6.ma
rename to helm/matita/tests/interactive/test6.ma
index c6a935a88..0ee55473e 100644
--- a/helm/matita/tests/test6.ma
+++ b/helm/matita/tests/interactive/test6.ma
@@ -1,5 +1,5 @@
-instance 
+whelp instance 
   \lambda A:Set.
   \lambda f:A \to A \to A.
   \forall x,y,z:A.
-   f x (f y z) = f (f x y) z.
\ No newline at end of file
+   f x (f y z) = f (f x y) z.
diff --git a/helm/matita/tests/test7.ma b/helm/matita/tests/interactive/test7.ma
similarity index 70%
rename from helm/matita/tests/test7.ma
rename to helm/matita/tests/interactive/test7.ma
index 3fc609da4..88e971bf7 100644
--- a/helm/matita/tests/test7.ma
+++ b/helm/matita/tests/interactive/test7.ma
@@ -1,5 +1,5 @@
-instance 
+whelp instance 
   \lambda A:Set.
   \lambda r:A \to A \to Prop.
   \forall x:A.
-   r x x.
\ No newline at end of file
+   r x x.
diff --git a/helm/matita/tests/test4.ma b/helm/matita/tests/test4.ma
index 3406652ab..83b749ae0 100644
--- a/helm/matita/tests/test4.ma
+++ b/helm/matita/tests/test4.ma
@@ -1,4 +1,3 @@
-%% commento segato dal lexer
 
 (* commento che va nell'ast, ma non viene contato
     come step perche' non e' un executable
@@ -8,18 +7,15 @@ alias num (instance 0) = "natural number".
 alias symbol "eq" (instance 0) = "leibnitz's equality".
 theorem a:0=0.
 
-%% commento segato dal lexer
 (* nota *)
 (**
 
 
-%% questo lo si vuole tenere anche dopo la hint
-hint.
-**)
+apply Prop.
+*)
 apply cic:/Coq/Init/Logic/eq.ind#xpointer(1/1/1). 
 
 (* commenti che non devono essere colorati perche'
    non c'e' nulla di eseguibile dopo di loro
 *)
 qed.
-%% EOF
-- 
2.39.2