tests for range, catflt, inside, outside, setvar

tests/data/range.ccl

+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}
+---

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
+---

tests/data/vars.ccl

+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
+---