From 7253269fb62712e7e8fd94d5d0264d5bed9e8406 Mon Sep 17 00:00:00 2001
From: Alasdair
Date: Wed, 20 Feb 2019 22:31:51 +0000
Subject: Fix bug with missing satisfiablity check in subtyping

Thanks to Mark for finding this bug. Regression test is
complex_exist_sat in test/typecheck/pass/
---
 test/typecheck/pass/complex_exist_sat.sail      | 7 +++++++
 test/typecheck/pass/complex_exist_sat/v1.expect | 8 ++++++++
 test/typecheck/pass/complex_exist_sat/v1.sail   | 3 +++
 test/typecheck/pass/complex_exist_sat/v2.expect | 8 ++++++++
 test/typecheck/pass/complex_exist_sat/v2.sail   | 3 +++
 5 files changed, 29 insertions(+)
 create mode 100644 test/typecheck/pass/complex_exist_sat.sail
 create mode 100644 test/typecheck/pass/complex_exist_sat/v1.expect
 create mode 100644 test/typecheck/pass/complex_exist_sat/v1.sail
 create mode 100644 test/typecheck/pass/complex_exist_sat/v2.expect
 create mode 100644 test/typecheck/pass/complex_exist_sat/v2.sail

(limited to 'test')

diff --git a/test/typecheck/pass/complex_exist_sat.sail b/test/typecheck/pass/complex_exist_sat.sail
new file mode 100644
index 00000000..65c3b6a9
--- /dev/null
+++ b/test/typecheck/pass/complex_exist_sat.sail
@@ -0,0 +1,7 @@
+val foo : int ->  {'q, 'q in {0, 1}. atom(2 * 'q)}
+
+function foo(x) = 2
+
+val bar : int ->  {'q, 'q in {0, 1}. atom(2 * 'q)}
+
+function bar(x) = 0
diff --git a/test/typecheck/pass/complex_exist_sat/v1.expect b/test/typecheck/pass/complex_exist_sat/v1.expect
new file mode 100644
index 00000000..b1937f47
--- /dev/null
+++ b/test/typecheck/pass/complex_exist_sat/v1.expect
@@ -0,0 +1,8 @@
+Type error:
+[complex_exist_sat/v1.sail]:3:18-19
+3 |function foo(x) = 3
+  |                  ^
+  | Tried performing type coercion from int(3) to {('q : Int), 'q in {0, 1}. int((2 * 'q))} on 3
+  | Coercion failed because:
+  | Constraint 3 == (2 * 'ex1#) is not satisfiable
+  | 
diff --git a/test/typecheck/pass/complex_exist_sat/v1.sail b/test/typecheck/pass/complex_exist_sat/v1.sail
new file mode 100644
index 00000000..f36f2dda
--- /dev/null
+++ b/test/typecheck/pass/complex_exist_sat/v1.sail
@@ -0,0 +1,3 @@
+val foo : int ->  {'q, 'q in {0, 1}. atom(2 * 'q)}
+
+function foo(x) = 3
\ No newline at end of file
diff --git a/test/typecheck/pass/complex_exist_sat/v2.expect b/test/typecheck/pass/complex_exist_sat/v2.expect
new file mode 100644
index 00000000..27af46d2
--- /dev/null
+++ b/test/typecheck/pass/complex_exist_sat/v2.expect
@@ -0,0 +1,8 @@
+Type error:
+[complex_exist_sat/v2.sail]:3:18-19
+3 |function foo(x) = 4
+  |                  ^
+  | Tried performing type coercion from int(4) to {('q : Int), 'q in {0, 1}. int((2 * 'q))} on 4
+  | Coercion failed because:
+  | int(4) is not a subtype of {('q : Int), 'q in {0, 1}. int((2 * 'q))}
+  | 
diff --git a/test/typecheck/pass/complex_exist_sat/v2.sail b/test/typecheck/pass/complex_exist_sat/v2.sail
new file mode 100644
index 00000000..e3e18e8c
--- /dev/null
+++ b/test/typecheck/pass/complex_exist_sat/v2.sail
@@ -0,0 +1,3 @@
+val foo : int ->  {'q, 'q in {0, 1}. atom(2 * 'q)}
+
+function foo(x) = 4
\ No newline at end of file
-- 
cgit v1.2.3