summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog14
-rw-r--r--Makefile1
-rw-r--r--tests/005/data10
-rw-r--r--tests/005/query-1.expected21
-rw-r--r--tests/005/query-1.txr3
5 files changed, 49 insertions, 0 deletions
diff --git a/ChangeLog b/ChangeLog
index c823056f..c3b8dc4d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,19 @@
2009-11-13 Kaz Kylheku <kkylheku@gmail.com>
+ New testcase which does some UTF-8 scanning, Unicode regexes,
+ and @(freeform).
+
+ * tests/005/data: New UTF-8 file.
+
+ * tests/005/query-1.txr: Likewise.
+
+ * tests/005/query-1.expected: Likewise.
+
+ * Makefile (TXR_ARGS): New target-specific assignment to set
+ data for test case set 005.
+
+2009-11-13 Kaz Kylheku <kkylheku@gmail.com>
+
* lib.c (symbolp): Bugfix: function crashed on NUM argument.
(lazy_str): Fix for gc correctness: object from make_obj must be
completely intialized before any gc-triggering operation is invoked,
diff --git a/Makefile b/Makefile
index 878ca04f..cb1ad360 100644
--- a/Makefile
+++ b/Makefile
@@ -67,6 +67,7 @@ tests: $(PROG) $(TESTS)
tests/001/%: TXR_ARGS := $(top_srcdir)/tests/001/data
tests/002/%: TXR_OPTS := -DTESTDIR=$(top_srcdir)/tests/002
tests/004/%: TXR_ARGS := -a 123 -b -c
+tests/005/%: TXR_ARGS := $(top_srcdir)/tests/005/data
tests/002/%: TXR_SCRIPT_ON_CMDLINE := y
diff --git a/tests/005/data b/tests/005/data
new file mode 100644
index 00000000..37c7c759
--- /dev/null
+++ b/tests/005/data
@@ -0,0 +1,10 @@
+春が来た (Haru-ga Kita/Spring has Come)
+
+春が来た 春が来た どこに来た
+山に来た 里に来た 野にも来た
+
+花が咲く 花が咲く どこに咲く
+山に咲く 里に咲く 野にも咲く
+
+鳥がなく 鳥がなく どこでなく
+山でなく 里でなく 野でもなく
diff --git a/tests/005/query-1.expected b/tests/005/query-1.expected
new file mode 100644
index 00000000..ba7aa409
--- /dev/null
+++ b/tests/005/query-1.expected
@@ -0,0 +1,21 @@
+TITLE="春が来た"
+ROMAJI="Haru-ga Kita"
+ENGLISH="Spring has Come"
+STANZA[0]="春が来た"
+STANZA[1]="春が来た"
+STANZA[2]="どこに来た"
+STANZA[3]="山に来た"
+STANZA[4]="里に来た"
+STANZA[5]="野にも来た"
+STANZA[6]="花が咲く"
+STANZA[7]="花が咲く"
+STANZA[8]="どこに咲く"
+STANZA[9]="山に咲く"
+STANZA[10]="里に咲く"
+STANZA[11]="野にも咲く"
+STANZA[12]="鳥がなく"
+STANZA[13]="鳥がなく"
+STANZA[14]="どこでなく"
+STANZA[15]="山でなく"
+STANZA[16]="里でなく"
+STANZA[17]="野でもなく"
diff --git a/tests/005/query-1.txr b/tests/005/query-1.txr
new file mode 100644
index 00000000..e021f713
--- /dev/null
+++ b/tests/005/query-1.txr
@@ -0,0 +1,3 @@
+@{TITLE /[あ-ん一-耙]+/} (@ROMAJI/@ENGLISH)
+@(freeform)
+@(coll)@{STANZA /[^\n\x3000 ]+/}@(end)@/.*/