gnucash master: [test-gnc-option-scheme-output.scm] more scheme typos

[Christopher Lam]

Updated	 via  https://github.com/Gnucash/gnucash/commit/c78bb3c2 (commit)
	from  https://github.com/Gnucash/gnucash/commit/11d39518 (commit)



commit c78bb3c22c75099aa4c3514345f933b0574142e6
Author: Christopher Lam <christopher.lck at gmail.com>
Date:   Tue Sep 27 18:26:53 2022 +0800

    [test-gnc-option-scheme-output.scm] more scheme typos
    
    Addendum to 11d395185

diff --git a/bindings/guile/test/test-gnc-option-scheme-output.scm b/bindings/guile/test/test-gnc-option-scheme-output.scm
index 9a43bd535..dfbdb2d80 100644
--- a/bindings/guile/test/test-gnc-option-scheme-output.scm
+++ b/bindings/guile/test/test-gnc-option-scheme-output.scm
@@ -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"))



Summary of changes:
 bindings/guile/test/test-gnc-option-scheme-output.scm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)