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-ifrs-cost-basis] rename functions and report name

Browse Source
This commit is contained in:
Christopher Lam 2021-04-30 19:42:52 +08:00
parent 254ccacafa
commit 185eb4465e
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
gnucash/report/reports/standard/test/test-ifrs-cost-basis.scm
View File

@ -1,7 +1,7 @@
(use-modules (gnucash engine)) (use-modules (gnucash engine))
(use-modules (gnucash app-utils)) (use-modules (gnucash app-utils))
(use-modules (tests test-engine-extras)) (use-modules (tests test-engine-extras))
(use-modules (gnucash reports standard average-cost-basis)) (use-modules (gnucash reports standard ifrs-cost-basis))
(use-modules (gnucash report stylesheets plain)) (use-modules (gnucash report stylesheets plain))
(use-modules (gnucash report)) (use-modules (gnucash report))
(use-modules (tests test-report-extras)) (use-modules (tests test-report-extras))
@ -10,7 +10,7 @@
(use-modules (sxml simple)) (use-modules (sxml simple))
(use-modules (sxml xpath)) (use-modules (sxml xpath))
;; This is implementation testing for both the AVERAGE-COST-BASIS Tool ;; This is implementation testing for both the IFRS-COST-BASIS Tool
(define uuid "15d5b744176c4625a703720338725291") (define uuid "15d5b744176c4625a703720338725291")
;; Explicitly set locale to make the report output predictable ;; Explicitly set locale to make the report output predictable
@ -20,7 +20,7 @@
(test-runner-factory gnc:test-runner) (test-runner-factory gnc:test-runner)
(test-begin "test-ifrs-cost-basis.scm") (test-begin "test-ifrs-cost-basis.scm")
(null-test) (null-test)
(average-cost-basis-tests) (ifrs-cost-basis-tests)
(test-end "test-ifrs-cost-basis.scm")) (test-end "test-ifrs-cost-basis.scm"))
(define (options->sxml uuid options test-title) (define (options->sxml uuid options test-title)
@ -51,7 +51,7 @@
(gnc-commodity-table-insert comm-table new-comm) (gnc-commodity-table-insert comm-table new-comm)
new-comm)) new-comm))
(define (create-average-cost-basis-test-data) (define (create-ifrs-cost-basis-test-data)
(define book (gnc-get-current-book)) (define book (gnc-get-current-book))
(define env (create-test-env)) (define env (create-test-env))
(define USD (mnemonic->commodity "USD")) (define USD (mnemonic->commodity "USD"))
@ -242,9 +242,9 @@
account-alist) account-alist)
(define (average-cost-basis-tests) (define (ifrs-cost-basis-tests)
(test-group-with-cleanup "average-cost-basis-tests" (test-group-with-cleanup "ifrs-cost-basis-tests"
(let* ((account-alist (create-average-cost-basis-test-data)) (let* ((account-alist (create-ifrs-cost-basis-test-data))
(options (gnc:make-report-options uuid))) (options (gnc:make-report-options uuid)))
;; (set-option! options "General" "Price Source" 'pricedb-latest) ;; (set-option! options "General" "Price Source" 'pricedb-latest)
(set-option! options "General" "Report's currency" (mnemonic->commodity "CAD")) (set-option! options "General" "Report's currency" (mnemonic->commodity "CAD"))