IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2024-12-02 05:29:20 -06:00
Code Issues Packages Projects Releases Wiki Activity

[test-charts] add SRFI-64 teardown function

Browse Source
This commit is contained in:
Christopher Lam 2018-09-12 18:10:34 +08:00
parent 83b1b8adfc
commit 867aa78f91
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
gnucash/report/standard-reports/test/test-charts.scm
View File

@ -45,12 +45,8 @@
(define (run-test)
(test-runner-factory gnc:test-runner)
(test-begin "net-charts.scm")
(for-each (lambda (variant)
(null-test variant))
(map car variant-alist))
(for-each (lambda (variant)
(net-charts-test variant))
(map car variant-alist))
(for-each null-test (map car variant-alist))
(for-each test-chart (map car variant-alist))
(test-end "net-charts.scm"))
(define (options->render variant options test-title)
@ -74,7 +70,12 @@
(test-assert (format #f "null-test: ~a" variant)
(options->render uuid options "null-test"))))
(define (net-charts-test variant)
(define (test-chart variant)
(test-group-with-cleanup (format #f "test variant ~a" variant)
(test-chart-variant variant)
(gnc-clear-current-session)))
(define (test-chart-variant variant)
(define (set-option! options section name value)
(let ((option (gnc:lookup-option options section name)))
(if option