diff options
| author | John Wiegley <johnw@newartisans.com> | 2012-03-18 00:13:41 -0500 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2012-03-18 00:13:41 -0500 |
| commit | bdaa6b71fb371951d420c5f5e6a933b270c0efcb (patch) | |
| tree | 1e87eb595803a82097fb5fd3ac741d8f4b730920 /lisp | |
| parent | 09cf0cbb2ae3690b357fc04d6f80476b8d60ce37 (diff) | |
| download | ledger-bdaa6b71fb371951d420c5f5e6a933b270c0efcb.tar.gz ledger-bdaa6b71fb371951d420c5f5e6a933b270c0efcb.tar.bz2 ledger-bdaa6b71fb371951d420c5f5e6a933b270c0efcb.zip | |
Improvements to ldg-test.el
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ldg-test.el | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/lisp/ldg-test.el b/lisp/ldg-test.el index 77e03026..a1ae3974 100644 --- a/lisp/ldg-test.el +++ b/lisp/ldg-test.el @@ -44,12 +44,15 @@ (expand-file-name "test/regress" ledger-source-directory))) (ledger-mode) - (when input - (insert input)) - (when output - (insert "\ntest \n") - (insert output) - (insert "end test\n")))))) + (if input + (insert input) + (insert "2012-03-17 Payee\n") + (insert " Expenses:Food $20\n") + (insert " Assets:Cash\n")) + (insert "\ntest reg\n") + (if output + (insert output)) + (insert "end test\n"))))) (defun ledger-test-run () (interactive) |