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-gnc-option-scheme-output.scm] more scheme typos

Browse Source 
Addendum to 11d395185
This commit is contained in:
Christopher Lam
2022-09-27 18:26:53 +08:00
parent 11d395185c
commit c78bb3c22c
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
bindings/guile/test/test-gnc-option-scheme-output.scm
View File

@@ -21,6 +21,7 @@
; ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(use-modules (ice-9 format)) ; ~f requires (ice-9 format)
(use-modules (srfi srfi-64))
(use-modules (tests srfi64-extras))
(use-modules (gnucash options))
@@ -317,8 +318,8 @@ veritatis et quasi architecto beatae vitae dicta sunt, explicabo.")
"foo" "bar" "a" "baz" (lambda () acctlist)
(lambda (ac)
(let ((type (xaccAccountGetType ac)))
(or (eq type ACCT-TYPE-STOCK)
(eq type ACCT-TYPE-BANK)))) #t))
(or (eqv? type ACCT-TYPE-STOCK)
(eqv? type ACCT-TYPE-BANK)))) #t))
(test-equal "account list unchanged"
test-unchanged-section-output-template
(gnc:generate-restore-forms odb "options"))
@@ -342,8 +343,8 @@ veritatis et quasi architecto beatae vitae dicta sunt, explicabo.")
"foo" "bar" "a" "baz" (lambda () '())
(lambda (ac)
(let ((type (xaccAccountGetType ac)))
(or (eq type ACCT-TYPE-STOCK)
(eq type ACCT-TYPE-BANK))))))
(or (eqv? type ACCT-TYPE-STOCK)
(eqv? type ACCT-TYPE-BANK))))))
(test-equal "account sel unchanged" test-unchanged-section-output-template
(gnc:generate-restore-forms odb "options"))
(let ((option (gnc:lookup-option odb "foo" "bar"))