From e22907304afd393f527b70c2a11d00c6abd2efb0 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Mon, 20 Sep 2010 17:10:55 +0000
Subject: Fixed test of bug #2360 (use of Fail to check a regular error instead
 of an anomaly).

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13442 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 test-suite/bugs/closed/shouldsucceed/2360.v | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test-suite/bugs/closed/shouldsucceed/2360.v b/test-suite/bugs/closed/shouldsucceed/2360.v
index b0974a3fdd..4ae97c97bb 100644
--- a/test-suite/bugs/closed/shouldsucceed/2360.v
+++ b/test-suite/bugs/closed/shouldsucceed/2360.v
@@ -9,5 +9,5 @@ Record Value (etyp : nat -> Type) := Mk {
 Definition some_value (etyp : nat -> Type) :  (Value etyp).
 Proof.
   intros.
-  apply Mk.
+  Fail apply Mk. (* Check that it does not raise an anomaly *)
 
-- 
cgit v1.2.3