Fix spelling of xaccAccountGetType.

Gnucash · Sep 26, 2022 · 11d3951 · 11d3951
1 parent 3949821
commit 11d3951
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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