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

Add scheme backward compatibility functions renamed in #979

Browse Source
This commit is contained in:
Christopher Lam 2021-04-23 17:48:12 +08:00
parent 49102c7ac2
commit 5957b3c256
3 changed files with 31 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
bindings/guile/engine.scm
View File

@ -31,11 +31,21 @@
(gnucash engine commodity-table)
(gnucash engine gnc-numeric))
(export gnc-pricedb-lookup-latest-before-t64)
(export gnc-pricedb-lookup-latest-before-any-currency-t64)
(export gnc:account-map-descendants)
(export gnc:account-map-children)
(export account-full-name<?)
(export accounts-get-children-depth)
(define (gnc-pricedb-lookup-latest-before-t64 . args)
(issue-deprecation-warning "gnc-pricedb-lookup-latest-before-t64 has been renamed to gnc-pricedb-lookup-nearest-before-t64")
(apply gnc-pricedb-lookup-nearest-before-t64 args))
(define (gnc-pricedb-lookup-latest-before-any-currency-t64 . args)
(issue-deprecation-warning "gnc-pricedb-lookup-latest-before-any-currency-t64 has been renamed to gnc-pricedb-lookup-nearest-before-any-currency-t64")
(apply gnc-pricedb-lookup-nearest-before-any-currency-t64 args))
;; A few account related utility functions which used to be in engine-utilities.scm
(define (gnc:account-map-descendants thunk account)
(issue-deprecation-warning "gnc:account-map-descendants is deprecated.")

1
bindings/guile/test/CMakeLists.txt
View File

@ -71,6 +71,7 @@ if (HAVE_SRFI64)
set (scm_tests_with_srfi64_SOURCES
test-business-core.scm
test-scm-engine.scm
)
gnc_add_scheme_test_targets (scm-test-with-srfi64

20
bindings/guile/test/test-scm-engine.scm Normal file
View File

@ -0,0 +1,20 @@
(use-modules (srfi srfi-64))
(use-modules (tests srfi64-extras))
(use-modules (gnucash engine))
(define (run-test)
(test-runner-factory gnc:test-runner)
(test-begin "test-engine")
(test-engine)
(test-end "test-engine"))
(define (test-engine)
(test-begin "testing function availability")
(test-assert "testing gnc-pricedb-lookup-latest-before-t64"
(gnc-pricedb-lookup-latest-before-t64 '() '() '() 0))
(test-assert "testing gnc-pricedb-lookup-latest-before-any-currency-t64"
(gnc-pricedb-lookup-latest-before-any-currency-t64 '() '() 0))
(test-end "testing deprecated functions"))