Fix spelling of xaccAccountGetType.

4 years ago · 11d395185c
parent 3949821da6
commit 11d395185c
1 changed files with 2 additions and 2 deletions
--- a/bindings/guile/test/test-gnc-option-scheme-output.scm
+++ b/bindings/guile/test/test-gnc-option-scheme-output.scm
@ -316,7 +316,7 @@ veritatis et quasi architecto beatae vitae dicta sunt, explicabo.")
                           (gnc:make-account-list-option
                            "foo" "bar" "a" "baz" (lambda () acctlist)
                            (lambda (ac)
-                              (let ((type (xaccAccountGetAccountType ac)))
+                              (let ((type (xaccAccountGetType ac)))
                                (or (eq type ACCT-TYPE-STOCK)
                                    (eq type ACCT-TYPE-BANK)))) #t))
      (test-equal "account list unchanged"
@ -341,7 +341,7 @@ veritatis et quasi architecto beatae vitae dicta sunt, explicabo.")
                           (gnc:make-account-sel-option
                            "foo" "bar" "a" "baz" (lambda () '())
                            (lambda (ac)
-                              (let ((type (xaccAccountGetAccountType ac)))
+                              (let ((type (xaccAccountGetType ac)))
                                (or (eq type ACCT-TYPE-STOCK)
                                    (eq type ACCT-TYPE-BANK))))))
      (test-equal "account sel unchanged" test-unchanged-section-output-template