This test case would have caught the prior regression.

* Makefile (TXR_ARGS): Defined for new test case.

* tests/010/align-columns.dat: New file.

* tests/010/align-columns.expected: New file.

* tests/010/align-columns.txr: New file.

1 files changed, 30 insertions, 0 deletions

diff --git a/tests/010/align-columns.txr b/tests/010/align-columns.txr
new file mode 100644
index 00000000..8ae2b7f5
--- /dev/null
+++ b/tests/010/align-columns.txr
@@ -0,0 +1,30 @@
+@(collect)
+@  (coll)@{item /[^$]+/}@(end)
+@(end)
+@; nc = number of columns
+@; pi = padded items (data with row lengths equalized with empty strings)
+@; cw = vector of max column widths
+@; ce = center padding
+@(bind nc @(apply (fun max) (mapcar (fun length) item)))
+@(bind pi @(mapcar (lambda (row) 
+                     (append row (repeat '("") (- nc (length row)))))
+                   item))
+@(bind cw @(vector-list 
+             (mapcar (lambda (column)
+                       (apply (fun max) (mapcar (fun length) column)))
+                     ;; matrix transpose trick cols become rows:
+                     (apply (fun mapcar) (cons (fun list) pi)))))
+@(bind ns "")
+@(output)
+@  (repeat)
+@    (rep :counter i)@{pi @[cw i]} @(end)
+@  (end)
+@  (repeat)
+@    (rep :counter i)@{pi @(- [cw i])} @(end)
+@  (end)
+@  (repeat)
+@    (rep :counter i)@\
+     @{ns @(trunc (- [cw i] (length pi)) 2)}@\
+     @{pi @(- [cw i] (trunc (- [cw i] (length pi)) 2))} @(end)
+@  (end)
+@(end)