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

Guile2: fix two tests in report system

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@23441 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Geert Janssens 2013-11-26 09:51:11 +00:00
parent 5cff297872
commit 95ba08328f
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/report/report-system/test/test-collectors.scm
View File

@ -51,8 +51,9 @@
(equal? 4 (length (collector-end c)))))
(define (empty-collector)
(define ((equal-predicate a) x)
(equal? a x))
(define (equal-predicate a)
(lambda (x)
(equal? a x)))
(collector-per-property '(1 2 3 4)
make-equal-filter
(lambda (value) (collector-accumulate-from 0))))

3
src/report/report-system/test/test-load-module
View File

@ -6,7 +6,8 @@ exec ${GUILE} -s "$0"
(debug-enable 'backtrace)
(debug-set! stack 500000)
(debug-set! maxdepth 10000)
(if (< (string->number (major-version)) 2)
(debug-set! maxdepth 100000))
(display " testing report module load ... ")
(setenv "GNC_UNINSTALLED" "1")