From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Wed, 15 Jun 2005 17:05:53 +0000 (+0000)
Subject: * parsing errors in tests were not detected and the rest of the file was
X-Git-Tag: INDEXING_NO_PROOFS~139
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=6c78b5575caa3257463c0a2654db3fb826de11ee;p=helm.git

* 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...)
---

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/interactive/test5.ma b/helm/matita/tests/interactive/test5.ma
new file mode 100644
index 000000000..537df88b6
--- /dev/null
+++ b/helm/matita/tests/interactive/test5.ma
@@ -0,0 +1,5 @@
+whelp instance 
+  \lambda A:Set. 
+  \lambda f: A \to A \to A.
+  \forall x,y : A.
+      f x y = f y x.
diff --git a/helm/matita/tests/interactive/test6.ma b/helm/matita/tests/interactive/test6.ma
new file mode 100644
index 000000000..0ee55473e
--- /dev/null
+++ b/helm/matita/tests/interactive/test6.ma
@@ -0,0 +1,5 @@
+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.
diff --git a/helm/matita/tests/interactive/test7.ma b/helm/matita/tests/interactive/test7.ma
new file mode 100644
index 000000000..88e971bf7
--- /dev/null
+++ b/helm/matita/tests/interactive/test7.ma
@@ -0,0 +1,5 @@
+whelp instance 
+  \lambda A:Set.
+  \lambda r:A \to A \to Prop.
+  \forall x:A.
+   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
diff --git a/helm/matita/tests/test5.ma b/helm/matita/tests/test5.ma
deleted file mode 100644
index 928402a53..000000000
--- a/helm/matita/tests/test5.ma
+++ /dev/null
@@ -1,5 +0,0 @@
-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
diff --git a/helm/matita/tests/test6.ma b/helm/matita/tests/test6.ma
deleted file mode 100644
index c6a935a88..000000000
--- a/helm/matita/tests/test6.ma
+++ /dev/null
@@ -1,5 +0,0 @@
-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
diff --git a/helm/matita/tests/test7.ma b/helm/matita/tests/test7.ma
deleted file mode 100644
index 3fc609da4..000000000
--- a/helm/matita/tests/test7.ma
+++ /dev/null
@@ -1,5 +0,0 @@
-instance 
-  \lambda A:Set.
-  \lambda r:A \to A \to Prop.
-  \forall x:A.
-   r x x.
\ No newline at end of file