Fix spelling of xaccAccountGetType.

This commit is contained in:
John Ralls 2022-09-26 09:31:47 -07:00
parent 3949821da6
commit 11d395185c

View File

@ -316,7 +316,7 @@ veritatis et quasi architecto beatae vitae dicta sunt, explicabo.")
(gnc:make-account-list-option (gnc:make-account-list-option
"foo" "bar" "a" "baz" (lambda () acctlist) "foo" "bar" "a" "baz" (lambda () acctlist)
(lambda (ac) (lambda (ac)
(let ((type (xaccAccountGetAccountType ac))) (let ((type (xaccAccountGetType ac)))
(or (eq type ACCT-TYPE-STOCK) (or (eq type ACCT-TYPE-STOCK)
(eq type ACCT-TYPE-BANK)))) #t)) (eq type ACCT-TYPE-BANK)))) #t))
(test-equal "account list unchanged" (test-equal "account list unchanged"
@ -341,7 +341,7 @@ veritatis et quasi architecto beatae vitae dicta sunt, explicabo.")
(gnc:make-account-sel-option (gnc:make-account-sel-option
"foo" "bar" "a" "baz" (lambda () '()) "foo" "bar" "a" "baz" (lambda () '())
(lambda (ac) (lambda (ac)
(let ((type (xaccAccountGetAccountType ac))) (let ((type (xaccAccountGetType ac)))
(or (eq type ACCT-TYPE-STOCK) (or (eq type ACCT-TYPE-STOCK)
(eq type ACCT-TYPE-BANK)))))) (eq type ACCT-TYPE-BANK))))))
(test-equal "account sel unchanged" test-unchanged-section-output-template (test-equal "account sel unchanged" test-unchanged-section-output-template