From 4df52843c2cc5ce33b2c52b982b14396b4470ef2 Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Fri, 7 Jul 2017 08:31:10 +0200
Subject: Fixing environment in warning "Projection value has no head
 constant".

Delaying also some computation needed for printing to the time of
really printing it.
---
 test-suite/output/Warnings.out | 3 +++
 test-suite/output/Warnings.v   | 5 +++++
 2 files changed, 8 insertions(+)
 create mode 100644 test-suite/output/Warnings.out
 create mode 100644 test-suite/output/Warnings.v

(limited to 'test-suite')

diff --git a/test-suite/output/Warnings.out b/test-suite/output/Warnings.out
new file mode 100644
index 0000000000..a70f8ca45a
--- /dev/null
+++ b/test-suite/output/Warnings.out
@@ -0,0 +1,3 @@
+File "stdin", line 4, characters 0-22:
+Warning: Projection value has no head constant: fun x : B => x in canonical
+instance a of b, ignoring it. [projection-no-head-constant,typechecker]
diff --git a/test-suite/output/Warnings.v b/test-suite/output/Warnings.v
new file mode 100644
index 0000000000..7465442cab
--- /dev/null
+++ b/test-suite/output/Warnings.v
@@ -0,0 +1,5 @@
+(* Term in warning was not printed in the right environment at some time *)
+Record A := { B:Type; b:B->B }.
+Definition a B := {| B:=B; b:=fun x => x |}.
+Canonical Structure a.
+
-- 
cgit v1.2.3