diff options
| -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) |