summaryrefslogtreecommitdiff
path: root/lisp/ldg-test.el
diff options
context:
space:
mode:
authorJohn Wiegley <johnw@newartisans.com>2012-03-16 04:09:21 -0500
committerJohn Wiegley <johnw@newartisans.com>2012-03-16 04:09:21 -0500
commit7462d09b214f2497d9d41a24f4fa8a4dd1577aba (patch)
tree639ef9fe4dea88d815a35efacbc0c120cba78648 /lisp/ldg-test.el
parent20c076dff92806c6c2aae7c0c87b000ffc703382 (diff)
downloadfork-ledger-7462d09b214f2497d9d41a24f4fa8a4dd1577aba.tar.gz
fork-ledger-7462d09b214f2497d9d41a24f4fa8a4dd1577aba.tar.bz2
fork-ledger-7462d09b214f2497d9d41a24f4fa8a4dd1577aba.zip
Correct parsing of automated xact expressions
Fixes #458
Diffstat (limited to 'lisp/ldg-test.el')
-rw-r--r--lisp/ldg-test.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/ldg-test.el b/lisp/ldg-test.el
index ad612f4d..77e03026 100644
--- a/lisp/ldg-test.el
+++ b/lisp/ldg-test.el
@@ -57,7 +57,8 @@
(goto-char (point-min))
(when (re-search-forward "^test \\(.+?\\)\\( ->.*\\)?$" nil t)
(let ((command (expand-file-name ledger-test-binary))
- (args (format "-f \"%s\" %s" buffer-file-name (match-string 1))))
+ (args (format "--args-only --columns=80 --no-color -f \"%s\" %s"
+ buffer-file-name (match-string 1))))
(setq args (replace-regexp-in-string "\\$sourcepath"
ledger-source-directory args))
(kill-new args)