From 10de51fe276c472444de0a360622b72520abc00c Mon Sep 17 00:00:00 2001
From: Adam Radziszewski <adam.radziszewski@pwr.wroc.pl>
Date: Fri, 10 Dec 2010 17:24:40 +0100
Subject: [PATCH] tests for range, catflt, inside, outside, setvar

---
 tests/data/range.ccl    | 30 ++++++++++++++++++++++++++
 tests/data/sentence.ccl | 16 ++++++++++++++
 tests/data/vars.ccl     | 48 +++++++++++++++++++++++++++++++++++++++++
 3 files changed, 94 insertions(+)
 create mode 100644 tests/data/range.ccl
 create mode 100644 tests/data/vars.ccl

diff --git a/tests/data/range.ccl b/tests/data/range.ccl
new file mode 100644
index 0000000..54df0bd
--- /dev/null
+++ b/tests/data/range.ccl
@@ -0,0 +1,30 @@
+tagset=kipi
+sentence=t01.xml
+---
+position=0
+range(class,7,8)
+
+{adj,conj,impt}
+---
+position=0
+range(per,0,2)
+
+{pri}
+---
+position=0
+range(m1,6,8)
+
+{m1}
+---
+catflt(0, {nmb,gnd},{cas}) // Uważam
+
+{}
+---
+catflt(18, {nmb,gnd},{cas}) // nie
+
+{acc}
+---
+catflt(11, cas[8], gnd) // cas[8] == {nom,acc}, cas[11] == {gen,acc,loc}, gnd[11] where cas[11] in cas[8] == m1
+
+{m1}
+---
diff --git a/tests/data/sentence.ccl b/tests/data/sentence.ccl
index b2533fb..f5b14e6 100644
--- a/tests/data/sentence.ccl
+++ b/tests/data/sentence.ccl
@@ -35,3 +35,19 @@ base[end+1]
 
 []
 ---
+inside(-1)
+
+False
+---
+outside(4)
+
+False
+---
+outside(end+1)
+
+True
+---
+inside(begin+1)
+
+True
+---
diff --git a/tests/data/vars.ccl b/tests/data/vars.ccl
new file mode 100644
index 0000000..88e1e4e
--- /dev/null
+++ b/tests/data/vars.ccl
@@ -0,0 +1,48 @@
+tagset=kipi
+sentence=t01.xml
+---
+position=0
+and(
+	setvar($s:O, ["leśny","czy"]),
+	setvar($P1, end-1),
+	setvar($P2, end-2),
+	in(orth[$P1], $s:O),
+	in(orth[$P2], $s:O)
+)
+
+True
+---
+position=0
+and(
+	setvar($t:Empty, $t:Uninitialised),
+	setvar($t:Subst, subst),
+	setvar($t:Fin, fin),
+	setvar($t:SubstOnly, $t:Subst),
+	setvar($t:Subst, {subst,ger,depr}),
+	not(equal($t:Subst,$t:SubstOnly)),
+	in($t:SubstOnly, $t:Subst),
+	equal({fin}, $t:Fin),
+	equal({}, $t:Empty)
+)
+
+True
+---
+position=0
+$t:Uninitialised
+
+{}
+---
+position=0
+$b:Uninitialised
+
+False
+---
+position=0
+$s:Uninitialised
+
+[]
+---
+$Uninitialised
+
+nowhere
+---
-- 
GitLab