IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

TP->T64: libgnucash/engine/test/test-extras.scm

Browse Source
This commit is contained in:
Christopher Lam 2017-12-17 17:19:57 +08:00
parent d41ad85f0a
commit b53aa85660
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
libgnucash/engine/test/test-extras.scm
View File

@ -138,15 +138,15 @@
(let ((txn (xaccMallocTransaction (gnc-get-current-book))) (let ((txn (xaccMallocTransaction (gnc-get-current-book)))
(split-1 (xaccMallocSplit (gnc-get-current-book))) (split-1 (xaccMallocSplit (gnc-get-current-book)))
(split-2 (xaccMallocSplit (gnc-get-current-book))) (split-2 (xaccMallocSplit (gnc-get-current-book)))
(gnc-localtime (gnc:timepair->date date))) (datevec (gnc-localtime date)))
(with-transaction txn (with-transaction txn
(lambda () (lambda ()
(xaccTransSetDescription txn (env-string env "ponies")) (xaccTransSetDescription txn (env-string env "ponies"))
(xaccTransSetCurrency txn (gnc-default-report-currency)) (xaccTransSetCurrency txn (gnc-default-report-currency))
(xaccTransSetDate txn (xaccTransSetDate txn
(gnc:date-get-month-day gnc-localtime) (gnc:date-get-month-day datevec)
(gnc:date-get-month gnc-localtime) (gnc:date-get-month datevec)
(gnc:date-get-year gnc-localtime)) (gnc:date-get-year datevec))
(xaccSplitSetParent split-1 txn) (xaccSplitSetParent split-1 txn)
(xaccSplitSetParent split-2 txn) (xaccSplitSetParent split-2 txn)
(xaccSplitSetAccount split-1 credit) (xaccSplitSetAccount split-1 credit)
@ -184,8 +184,8 @@
(env-create-transaction env date to-account (env-create-transaction env date to-account
from-account from-account
(/ (/
(gnc:date-get-month-day (gnc:timepair->date date)) (gnc:date-get-month-day (gnc-localtime date))
1))) 1)))
(cdr (reverse dates-this-month))))) (cdr (reverse dates-this-month)))))
(define (env-create-account-structure env account-structure) (define (env-create-account-structure env account-structure)