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

[tests] modify load-path to find the parent directory

Browse Source 
Find the parent directory programmatically.
This commit is contained in:
Christopher Lam
2018-07-02 08:58:05 +08:00
committed by John Ralls
parent d12ee9a4fc
commit 5c8af37901
2 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
gnucash/report/business-reports/test/test-invoice.scm
View File

@@ -26,7 +26,9 @@
(run-test-proper)))
(define (coverage-test tester)
(add-to-load-path "/home/chris/sources/gnucash/gnucash/report/business-reports")
(let* ((currfile (dirname (current-filename)))
(path (string-take currfile (string-rindex currfile #\/))))
(add-to-load-path path))
(call-with-values
(lambda()
(with-code-coverage tester))

7
gnucash/report/standard-reports/test/test-transaction.scm
View File

@@ -50,11 +50,12 @@
(run-test-proper)))
(define (coverage-test)
(define %test-vm (make-vm))
(add-to-load-path "/home/chris/sources/gnucash/gnucash/report/standard-reports")
(let* ((currfile (dirname (current-filename)))
(path (string-take currfile (string-rindex currfile #\/))))
(add-to-load-path path))
(call-with-values
(lambda()
(with-code-coverage %test-vm run-test-proper))
(with-code-coverage run-test-proper))
(lambda (data result)
(let ((port (open-output-file "/tmp/lcov.info")))
(coverage-data->lcov data port)