From 8814829f386cb8b4fd89b969f0188d26bb61440d Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 12 Aug 2019 07:27:40 -0700
Subject: tests: add test related to recent @(collect) change.

This test will misbehave on TXR without the previous fix;
it will not collect columns of data which keep the
corresponding rows items together.

* tests/002/variant, tests/002/variant.expected,
tests/002/variant.txr: New files.

* Makefile (TXR_ARGS, TXR_OPTS): Override for new test.
---
 tests/002/variant          |  8 ++++++++
 tests/002/variant.expected |  7 +++++++
 tests/002/variant.txr      | 18 ++++++++++++++++++
 3 files changed, 33 insertions(+)
 create mode 100644 tests/002/variant
 create mode 100644 tests/002/variant.expected
 create mode 100644 tests/002/variant.txr

(limited to 'tests')

diff --git a/tests/002/variant b/tests/002/variant
new file mode 100644
index 00000000..84d67ff5
--- /dev/null
+++ b/tests/002/variant
@@ -0,0 +1,8 @@
+zero
+
+one two three
+four five six seven
+eight nine ten eleven
+twelve thirteen
+fourteen
+fifteen
diff --git a/tests/002/variant.expected b/tests/002/variant.expected
new file mode 100644
index 00000000..78ecccb1
--- /dev/null
+++ b/tests/002/variant.expected
@@ -0,0 +1,7 @@
+zero-*-%-$
+one-two-three-$
+four-five-six-seven
+eight-nine-ten-eleven
+twelve-thirteen-%-$
+fourteen-*-%-$
+fifteen-*-%-$
diff --git a/tests/002/variant.txr b/tests/002/variant.txr
new file mode 100644
index 00000000..21868957
--- /dev/null
+++ b/tests/002/variant.txr
@@ -0,0 +1,18 @@
+@(collect :vars (f1 (f2 "*") (f3 "%") (f4 "$")))
+@  (cases)
+
+@  (or)
+@f1 @f2 @f3 @f4
+@  (or)
+@f1 @f2 @f3
+@  (or)
+@f1 @f2
+@  (or)
+@f1
+@  (end)
+@(end)
+@(output)
+@  (repeat)
+@f1-@f2-@f3-@f4
+@  (end)
+@(end)
-- 
cgit v1.2.3