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

[test-extras] upgrade env-transfer-foreign to update pricedb

Browse Source
This commit is contained in:
Christopher Lam 2018-06-16 14:18:08 +08:00
parent f1823c525c
commit 02bb981daa
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -140,6 +140,22 @@
;(format #t "tx ~a\n" (map xaccSplitGetValue (list split-1 split-2)))
txn))
(define (gnc-pricedb-create currency commodity time64 value)
;; I think adding pricedb for a DMY date will clobber any existing
;; pricedb entry for that date.
(let ((price (gnc-price-create (gnc-get-current-book)))
(pricedb (gnc-pricedb-get-db (gnc-get-current-book))))
(gnc-price-begin-edit price)
(gnc-price-set-commodity price commodity)
(gnc-price-set-currency price currency)
(gnc-price-set-time64 price time64)
(gnc-price-set-source price PRICE-SOURCE-XFER-DLG-VAL)
(gnc-price-set-source-string price "test-price")
(gnc-price-set-typestr price "test")
(gnc-price-set-value price value)
(gnc-price-commit-edit price)
(gnc-pricedb-add-price pricedb price)))
(define* (env-transfer-foreign
env
DD MM YY ; day/month/year
@ -186,6 +202,10 @@
(begin
(xaccSplitSetMemo split-1 memo)
(xaccSplitSetMemo split-2 memo)))
(gnc-pricedb-create (xaccAccountGetCommodity debit)
(xaccAccountGetCommodity credit)
(gnc-dmy2time64 DD MM YY)
(/ amount1 amount2))
(xaccTransCommitEdit txn)
txn))