From 8325de2db085bb0b3599bc453b658a1dacfe79ae Mon Sep 17 00:00:00 2001
From: Nadrieril
Date: Thu, 5 Nov 2020 00:18:38 +0000
Subject: tests: add some tests

---
 .../success/regression/ComplexRecordSimplificationA.dhall              | 1 +
 .../success/regression/ComplexRecordSimplificationB.dhall              | 3 +++
 dhall/tests/normalization/success/unit/RecordSortFieldsA.dhall         | 1 +
 dhall/tests/normalization/success/unit/RecordSortFieldsB.dhall         | 1 +
 dhall/tests/normalization/success/unit/RecordTypeSortFieldsA.dhall     | 1 +
 dhall/tests/normalization/success/unit/RecordTypeSortFieldsB.dhall     | 1 +
 dhall/tests/normalization/success/unit/TextReplaceOverlappingA.dhall   | 1 +
 dhall/tests/normalization/success/unit/TextReplaceOverlappingB.dhall   | 1 +
 8 files changed, 10 insertions(+)
 create mode 100644 dhall/tests/normalization/success/regression/ComplexRecordSimplificationA.dhall
 create mode 100644 dhall/tests/normalization/success/regression/ComplexRecordSimplificationB.dhall
 create mode 100644 dhall/tests/normalization/success/unit/RecordSortFieldsA.dhall
 create mode 100644 dhall/tests/normalization/success/unit/RecordSortFieldsB.dhall
 create mode 100644 dhall/tests/normalization/success/unit/RecordTypeSortFieldsA.dhall
 create mode 100644 dhall/tests/normalization/success/unit/RecordTypeSortFieldsB.dhall
 create mode 100644 dhall/tests/normalization/success/unit/TextReplaceOverlappingA.dhall
 create mode 100644 dhall/tests/normalization/success/unit/TextReplaceOverlappingB.dhall

(limited to 'dhall/tests/normalization/success')

diff --git a/dhall/tests/normalization/success/regression/ComplexRecordSimplificationA.dhall b/dhall/tests/normalization/success/regression/ComplexRecordSimplificationA.dhall
new file mode 100644
index 0000000..c41a3a7
--- /dev/null
+++ b/dhall/tests/normalization/success/regression/ComplexRecordSimplificationA.dhall
@@ -0,0 +1 @@
+\(foo: { x: Bool, y: Bool }) -> \(bar: { x: Bool }) -> (foo.{x, y} // bar).{ x }
diff --git a/dhall/tests/normalization/success/regression/ComplexRecordSimplificationB.dhall b/dhall/tests/normalization/success/regression/ComplexRecordSimplificationB.dhall
new file mode 100644
index 0000000..d7026a4
--- /dev/null
+++ b/dhall/tests/normalization/success/regression/ComplexRecordSimplificationB.dhall
@@ -0,0 +1,3 @@
+λ(foo : { x : Bool, y : Bool }) →
+λ(bar : { x : Bool }) →
+  (foo.{ x, y } ⫽ bar).{ x }
diff --git a/dhall/tests/normalization/success/unit/RecordSortFieldsA.dhall b/dhall/tests/normalization/success/unit/RecordSortFieldsA.dhall
new file mode 100644
index 0000000..8b7b5e4
--- /dev/null
+++ b/dhall/tests/normalization/success/unit/RecordSortFieldsA.dhall
@@ -0,0 +1 @@
+{ b = 1, a = 0 }
diff --git a/dhall/tests/normalization/success/unit/RecordSortFieldsB.dhall b/dhall/tests/normalization/success/unit/RecordSortFieldsB.dhall
new file mode 100644
index 0000000..23aa2b4
--- /dev/null
+++ b/dhall/tests/normalization/success/unit/RecordSortFieldsB.dhall
@@ -0,0 +1 @@
+{ a = 0, b = 1 }
diff --git a/dhall/tests/normalization/success/unit/RecordTypeSortFieldsA.dhall b/dhall/tests/normalization/success/unit/RecordTypeSortFieldsA.dhall
new file mode 100644
index 0000000..6b4be0e
--- /dev/null
+++ b/dhall/tests/normalization/success/unit/RecordTypeSortFieldsA.dhall
@@ -0,0 +1 @@
+{ b : Bool, a : Natural }
diff --git a/dhall/tests/normalization/success/unit/RecordTypeSortFieldsB.dhall b/dhall/tests/normalization/success/unit/RecordTypeSortFieldsB.dhall
new file mode 100644
index 0000000..d52374f
--- /dev/null
+++ b/dhall/tests/normalization/success/unit/RecordTypeSortFieldsB.dhall
@@ -0,0 +1 @@
+{ a : Natural, b : Bool }
diff --git a/dhall/tests/normalization/success/unit/TextReplaceOverlappingA.dhall b/dhall/tests/normalization/success/unit/TextReplaceOverlappingA.dhall
new file mode 100644
index 0000000..31ca0d9
--- /dev/null
+++ b/dhall/tests/normalization/success/unit/TextReplaceOverlappingA.dhall
@@ -0,0 +1 @@
+Text/replace "aa" "b" "aaaaa"
diff --git a/dhall/tests/normalization/success/unit/TextReplaceOverlappingB.dhall b/dhall/tests/normalization/success/unit/TextReplaceOverlappingB.dhall
new file mode 100644
index 0000000..ab8b076
--- /dev/null
+++ b/dhall/tests/normalization/success/unit/TextReplaceOverlappingB.dhall
@@ -0,0 +1 @@
+"bba"
-- 
cgit v1.2.3