From 737e732e1c444c2dff9288303a382347f7085576 Mon Sep 17 00:00:00 2001 From: Jeremy White Date: Wed, 30 Aug 2023 12:42:27 -0500 Subject: [PATCH] Fixup qif-imp price unit tests. The expected results changed with commit 80f7e60f49. At the same time, improve readability of test results by assigning a tag and ordering expected vs actual correctly. --- gnucash/import-export/qif-imp/test/test-qif-imp.scm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/gnucash/import-export/qif-imp/test/test-qif-imp.scm b/gnucash/import-export/qif-imp/test/test-qif-imp.scm index dda423448a7..7b5a0e33a73 100644 --- a/gnucash/import-export/qif-imp/test/test-qif-imp.scm +++ b/gnucash/import-export/qif-imp/test/test-qif-imp.scm @@ -66,19 +66,19 @@ (let ((parsed (qif-file:parse-price-line "\"ABC\",1.0,\"1/1/04\"")) (model (make-qif-price))) (qif-price:set-symbol! model "ABC") - (qif-price:set-share-price! model "1.0") + (qif-price:set-share-price! model "1") (qif-price:set-date! model "1/1/04") - (test-equal parsed model)) + (test-equal "parse-price-line-decimal" model parsed)) (let ((parsed (qif-file:parse-price-line "\"ABC\",1 3/4,\"1/1' 4\"")) (model (make-qif-price))) (qif-price:set-symbol! model "ABC") - (qif-price:set-share-price! model "1.75") + (qif-price:set-share-price! model "7/4") (qif-price:set-date! model "1/1' 4") - (test-equal parsed model)) + (test-equal "parse-price-line-fraction" parsed model)) (let ((parsed (qif-file:parse-price-line "\"ABC\",,\"1/1' 4\""))) - (test-equal parsed #f)) + (test-equal "parse-price-line-empty" #f parsed)) (let ((parsed (qif-file:parse-price-line "\"ABC\",\"1/1' 4\""))) - (test-equal parsed #f))) + (test-equal "parse-price-line-missingcomma" #f parsed)))