From c78bb3c22c75099aa4c3514345f933b0574142e6 Mon Sep 17 00:00:00 2001 From: Christopher Lam Date: Tue, 27 Sep 2022 18:26:53 +0800 Subject: [PATCH] [test-gnc-option-scheme-output.scm] more scheme typos Addendum to 11d395185 --- bindings/guile/test/test-gnc-option-scheme-output.scm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/bindings/guile/test/test-gnc-option-scheme-output.scm b/bindings/guile/test/test-gnc-option-scheme-output.scm index 9a43bd5350..dfbdb2d807 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"))