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-report-utilities] convert to srfi-64 and augment tests

Browse Source
This commit is contained in:
Christopher Lam 2018-08-31 10:56:43 +08:00
parent 7e56a44f66
commit 88229370aa
2 changed files with 26 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gnucash/report/report-system/test/CMakeLists.txt
View File

@ -12,12 +12,12 @@ gnc_add_test_with_guile(test-link-module-report-system test-link-module.c
set(scm_test_report_system_SOURCES
test-load-report-system-module.scm
test-collectors.scm
test-report-utilities.scm
test-test-extras.scm
)
set (scm_test_report_system_with_srfi64_SOURCES
test-commodity-utils.scm
test-report-utilities.scm
test-html-utilities-srfi64.scm
test-report-system.scm
)

28
gnucash/report/report-system/test/test-report-utilities.scm
View File

@ -3,13 +3,19 @@
(gnc:module-begin-syntax (gnc:module-load "gnucash/app-utils" 0))
(gnc:module-begin-syntax (gnc:module-load "gnucash/report/report-system" 0))
(use-modules (srfi srfi-64))
(use-modules (gnucash engine test srfi64-extras))
(use-modules (gnucash engine test test-extras))
(use-modules (gnucash report report-system test test-extras))
(use-modules (gnucash report report-system))
(define (run-test)
(test-account-get-trans-type-splits-interval))
(test-runner-factory gnc:test-runner)
(test-begin "report-utilities")
(test-account-get-trans-type-splits-interval)
(test-list-ref-safe)
(test-end "report-utilities")
)
(define (NDayDelta t64 n)
(let* ((day-secs (* 60 60 24 n)) ; n days in seconds is n times 60 sec/min * 60 min/h * 24 h/day
@ -41,4 +47,20 @@
ACCT-TYPE-ASSET
q-start-date q-end-date)))
;; 10 is the right number (5 days, two splits per tx)
(or (equal? 10 (length splits)) (begin (format #t "Fail, ~d splits, expected 10~%" (length splits)) #f))))))
(test-equal "length splits = 10"
10
(length splits))))))
(define (teardown)
(gnc-clear-current-session))
(define (test-list-ref-safe)
(test-begin "list-ref-safe")
(let ((lst '(1 2)))
(test-equal "list-ref-safe normal"
1
(list-ref-safe lst 0))
(test-equal "list-ref-safe out of bounds"
#f
(list-ref-safe lst 3)))
(test-end "list-ref-safe"))