From dcf4af8b561f00414f50ef143706d15c8d7a35dd Mon Sep 17 00:00:00 2001
From: Matthieu Sozeau
Date: Mon, 29 Sep 2014 00:46:45 +0200
Subject: Fix test-suite files

3566 gave a legitimate error, keyedrewrite was not setting keyed
unification on.
---
 test-suite/bugs/closed/3566.v     | 2 +-
 test-suite/success/keyedrewrite.v | 2 ++
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/test-suite/bugs/closed/3566.v b/test-suite/bugs/closed/3566.v
index d71727be57..b2aa8c3cd6 100644
--- a/test-suite/bugs/closed/3566.v
+++ b/test-suite/bugs/closed/3566.v
@@ -19,4 +19,4 @@ Definition lift {T} : T -> Lift T := fun x => x.
 Goal forall x y : Type, x = y.
   intros.
   pose proof ((fun H0 : idmap _ => (@path_universe _ _ (@lift x) (H0 x) @ 
-                                                   (@path_universe _ _ (@lift y) (H0 y))^)))%path as H''.
+                                                   (@path_universe _ _ (@lift x) (H0 x))^)))%path as H''.
diff --git a/test-suite/success/keyedrewrite.v b/test-suite/success/keyedrewrite.v
index c99b16e2bc..bbe9d4bfff 100644
--- a/test-suite/success/keyedrewrite.v
+++ b/test-suite/success/keyedrewrite.v
@@ -1,3 +1,5 @@
+Set Keyed Unification.
+
 Section foo.
 Variable f : nat -> nat. 
 
-- 
cgit v1.2.3