From c6faccc01c7387ed75cae7fe7ae1259acad51b74 Mon Sep 17 00:00:00 2001
From: Adam Radziszewski <adam.radziszewski@pwr.wroc.pl>
Date: Thu, 5 May 2011 10:35:22 +0200
Subject: [PATCH] test that fails

---
 .../rules-data/match/unmark/cclmatch-exc.ccl  | 10 +++
 tests/rules-data/match/unmark/cclmatch.xml    | 70 +++++++++++++++++++
 tests/rules-data/match/unmark/cclmatch1.ccl   |  9 +++
 .../rules-data/match/unmark/cclmatch1.out.xml | 70 +++++++++++++++++++
 .../match/unmark/simple.is-the-tagset         |  1 +
 5 files changed, 160 insertions(+)
 create mode 100644 tests/rules-data/match/unmark/cclmatch-exc.ccl
 create mode 100644 tests/rules-data/match/unmark/cclmatch.xml
 create mode 100644 tests/rules-data/match/unmark/cclmatch1.ccl
 create mode 100644 tests/rules-data/match/unmark/cclmatch1.out.xml
 create mode 100644 tests/rules-data/match/unmark/simple.is-the-tagset

diff --git a/tests/rules-data/match/unmark/cclmatch-exc.ccl b/tests/rules-data/match/unmark/cclmatch-exc.ccl
new file mode 100644
index 0000000..c67e433
--- /dev/null
+++ b/tests/rules-data/match/unmark/cclmatch-exc.ccl
@@ -0,0 +1,10 @@
+apply(
+  match(
+    optional(equal(class[0], other)),
+    repeat(inter(class[0], adj))
+  ),
+  cond(debug(M)),
+  actions(
+    unmark(M, "B")
+  )
+)
diff --git a/tests/rules-data/match/unmark/cclmatch.xml b/tests/rules-data/match/unmark/cclmatch.xml
new file mode 100644
index 0000000..7b48741
--- /dev/null
+++ b/tests/rules-data/match/unmark/cclmatch.xml
@@ -0,0 +1,70 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE cesAna SYSTEM "xcesAnaIPI.dtd">
+<cesAna xmlns:xlink="http://www.w3.org/1999/xlink" version="1.0" type="lex disamb">
+<chunkList>
+ <chunk>
+  <sentence>
+   <tok>
+    <orth>Dwa</orth>
+    <lex><base>dwa</base><ctag>other</ctag></lex>
+    <ann chan="A">1</ann>
+    <ann chan="B" head="1">1</ann>
+   </tok>
+   <tok>
+    <orth>wielkie</orth>
+    <lex><base>wielki</base><ctag>adj</ctag></lex>
+    <ann chan="A">1</ann>
+    <ann chan="B" head="1">2</ann>
+   </tok>
+   <tok>
+    <orth>włochate</orth>
+    <lex><base>włochaty</base><ctag>adj</ctag></lex>
+    <ann chan="A">1</ann>
+    <ann chan="B">2</ann>
+   </tok>
+   <tok>
+    <orth>zapchlone</orth>
+    <lex><base>zapchlić</base><ctag>adj</ctag></lex>
+    <ann chan="A">1</ann>
+    <ann chan="B">2</ann>
+   </tok>
+   <tok>
+    <orth>koty</orth>
+    <lex><base>kot</base><ctag>noun</ctag></lex>
+    <ann chan="A" head="1">1</ann>
+    <ann chan="B" head="1">3</ann>
+   </tok>
+   <tok>
+    <orth>zjadły</orth>
+    <lex><base>zjeść</base><ctag>verb</ctag></lex>
+    <ann chan="A">0</ann>
+    <ann chan="B" head="1">4</ann>
+   </tok>
+   <tok>
+    <orth>pięć</orth>
+    <lex><base>pięć</base><ctag>other</ctag></lex>
+    <ann chan="A" head="1">2</ann>
+    <ann chan="B">4</ann>
+   </tok>
+   <tok>
+    <orth>tłustych</orth>
+    <lex><base>tłusty</base><ctag>adj</ctag></lex>
+    <ann chan="A">2</ann>
+    <ann chan="B">4</ann>
+   </tok>
+   <tok>
+    <orth>soczystych</orth>
+    <lex><base>soczysty</base><ctag>adj</ctag></lex>
+    <ann chan="A">2</ann>
+    <ann chan="B">4</ann>
+   </tok>
+   <tok>
+    <orth>much</orth>
+    <lex><base>mucha</base><ctag>noun</ctag></lex>
+    <ann chan="A">2</ann>
+    <ann chan="B">0</ann>
+   </tok>
+  </sentence>
+ </chunk>
+</chunkList>
+</cesAna>
diff --git a/tests/rules-data/match/unmark/cclmatch1.ccl b/tests/rules-data/match/unmark/cclmatch1.ccl
new file mode 100644
index 0000000..445daca
--- /dev/null
+++ b/tests/rules-data/match/unmark/cclmatch1.ccl
@@ -0,0 +1,9 @@
+apply(
+  match(
+    optional(equal(class[0], other)),
+    repeat(inter(class[0], adj))
+  ),
+  actions(
+    unmark(M, "A")
+  )
+)
diff --git a/tests/rules-data/match/unmark/cclmatch1.out.xml b/tests/rules-data/match/unmark/cclmatch1.out.xml
new file mode 100644
index 0000000..d96c55d
--- /dev/null
+++ b/tests/rules-data/match/unmark/cclmatch1.out.xml
@@ -0,0 +1,70 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE cesAna SYSTEM "xcesAnaIPI.dtd">
+<cesAna xmlns:xlink="http://www.w3.org/1999/xlink" version="1.0" type="lex disamb">
+<chunkList>
+ <chunk>
+  <sentence>
+   <tok>
+    <orth>Dwa</orth>
+    <lex><base>dwa</base><ctag>other</ctag></lex>
+    <ann chan="A">0</ann>
+    <ann chan="B" head="1">1</ann>
+   </tok>
+   <tok>
+    <orth>wielkie</orth>
+    <lex><base>wielki</base><ctag>adj</ctag></lex>
+    <ann chan="A">0</ann>
+    <ann chan="B" head="1">2</ann>
+   </tok>
+   <tok>
+    <orth>włochate</orth>
+    <lex><base>włochaty</base><ctag>adj</ctag></lex>
+    <ann chan="A">0</ann>
+    <ann chan="B">2</ann>
+   </tok>
+   <tok>
+    <orth>zapchlone</orth>
+    <lex><base>zapchlić</base><ctag>adj</ctag></lex>
+    <ann chan="A">0</ann>
+    <ann chan="B">2</ann>
+   </tok>
+   <tok>
+    <orth>koty</orth>
+    <lex><base>kot</base><ctag>noun</ctag></lex>
+    <ann chan="A">0</ann>
+    <ann chan="B" head="1">3</ann>
+   </tok>
+   <tok>
+    <orth>zjadły</orth>
+    <lex><base>zjeść</base><ctag>verb</ctag></lex>
+    <ann chan="A">0</ann>
+    <ann chan="B" head="1">4</ann>
+   </tok>
+   <tok>
+    <orth>pięć</orth>
+    <lex><base>pięć</base><ctag>other</ctag></lex>
+    <ann chan="A">0</ann>
+    <ann chan="B">4</ann>
+   </tok>
+   <tok>
+    <orth>tłustych</orth>
+    <lex><base>tłusty</base><ctag>adj</ctag></lex>
+    <ann chan="A">0</ann>
+    <ann chan="B">4</ann>
+   </tok>
+   <tok>
+    <orth>soczystych</orth>
+    <lex><base>soczysty</base><ctag>adj</ctag></lex>
+    <ann chan="A">0</ann>
+    <ann chan="B">4</ann>
+   </tok>
+   <tok>
+    <orth>much</orth>
+    <lex><base>mucha</base><ctag>noun</ctag></lex>
+    <ann chan="A">0</ann>
+    <ann chan="B">0</ann>
+   </tok>
+  </sentence>
+ </chunk>
+</chunkList>
+</cesAna>
diff --git a/tests/rules-data/match/unmark/simple.is-the-tagset b/tests/rules-data/match/unmark/simple.is-the-tagset
new file mode 100644
index 0000000..8b13789
--- /dev/null
+++ b/tests/rules-data/match/unmark/simple.is-the-tagset
@@ -0,0 +1 @@
+
-- 
GitLab