From 9942908df9ee3e94394b9c9455ae1c1aae34094c Mon Sep 17 00:00:00 2001
From: "John J. Camilleri" <john@digitalgrammars.com>
Date: Sun, 21 Feb 2021 14:05:31 +0100
Subject: [PATCH] Add unit test for missing lins

---
 testsuite/lpgf/unittests/Missing.gf       |  7 +++++++
 testsuite/lpgf/unittests/Missing.treebank | 12 +++++++++++
 testsuite/lpgf/unittests/Missing.trees    |  4 ++++
 testsuite/lpgf/unittests/MissingCnc.gf    | 25 +++++++++++++++++++++++
 4 files changed, 48 insertions(+)
 create mode 100644 testsuite/lpgf/unittests/Missing.gf
 create mode 100644 testsuite/lpgf/unittests/Missing.treebank
 create mode 100644 testsuite/lpgf/unittests/Missing.trees
 create mode 100644 testsuite/lpgf/unittests/MissingCnc.gf

diff --git a/testsuite/lpgf/unittests/Missing.gf b/testsuite/lpgf/unittests/Missing.gf
new file mode 100644
index 000000000..940645058
--- /dev/null
+++ b/testsuite/lpgf/unittests/Missing.gf
@@ -0,0 +1,7 @@
+abstract Missing = {
+  cat S; NP; V2;
+  fun
+    Pred: NP -> V2 -> NP -> S;
+    John, Dogs, Fish: NP ;
+    Love, Eat: V2 ;
+}
diff --git a/testsuite/lpgf/unittests/Missing.treebank b/testsuite/lpgf/unittests/Missing.treebank
new file mode 100644
index 000000000..dfcf7e18a
--- /dev/null
+++ b/testsuite/lpgf/unittests/Missing.treebank
@@ -0,0 +1,12 @@
+Missing: Pred John Love Fish
+MissingCnc: John loves fish a lot
+
+Missing: Pred John Eat Fish
+MissingCnc: John [Eat] fish [Eat]
+
+Missing: Pred Fish Love Dogs
+MissingCnc: fish love [Dogs] a lot
+
+Missing: Pred Dogs Eat Fish
+MissingCnc: [Dogs] [Eat] fish [Eat]
+
diff --git a/testsuite/lpgf/unittests/Missing.trees b/testsuite/lpgf/unittests/Missing.trees
new file mode 100644
index 000000000..5e68cf3ec
--- /dev/null
+++ b/testsuite/lpgf/unittests/Missing.trees
@@ -0,0 +1,4 @@
+Pred John Love Fish
+Pred John Eat Fish
+Pred Fish Love Dogs
+Pred Dogs Eat Fish
diff --git a/testsuite/lpgf/unittests/MissingCnc.gf b/testsuite/lpgf/unittests/MissingCnc.gf
new file mode 100644
index 000000000..678727083
--- /dev/null
+++ b/testsuite/lpgf/unittests/MissingCnc.gf
@@ -0,0 +1,25 @@
+concrete MissingCnc of Missing = open Prelude, ParamX in {
+  lincat
+    S = SS ;
+    NP = { s : Str ; n : Number } ;
+    V2 = { s : Number => Str; s2 : Str } ;
+  lin
+    Pred subj verb obj = ss (subj.s ++ verb.s ! subj.n ++ obj.s ++ verb.s2) ;
+    John = { s = "John" ; n = Sg } ;
+    -- Dogs = { s = "dogs" ; n = Pl } ;
+    Fish = { s = "fish" ; n = Pl } ;
+    Love = {
+      s = table {
+        Sg => "loves" ;
+        Pl => "love"
+      } ;
+      s2 = "a lot"
+    } ;
+    -- Eat = {
+    --   s = table {
+    --     Sg => "eats" ;
+    --     Pl => "eat"
+    --   } ;
+    --   s2 = "often"
+    -- } ;
+}