Bug 797378 - QIF file import fails: Loading gives wrong type argument in position 2

7 years ago · bb4348fce9
parent d4379644c2
commit bb4348fce9
2 changed files with 8 additions and 1 deletions
--- a/gnucash/import-export/qif-imp/qif-parse.scm
+++ b/gnucash/import-export/qif-imp/qif-parse.scm
@ -409,7 +409,9 @@
    (if (null? amt-strings)
        formats
        (lp (cdr amt-strings)
-            (qif-parse:check-number-format (car amt-strings) formats)))))
+            (if (car amt-strings)
+                (qif-parse:check-number-format (car amt-strings) formats)
+                formats)))))

 ;; list of number-strings and format -> list of numbers eg '("1,00"
 ;; "2,50" "3,99") 'comma --> '(1 5/2 399/100) this function would
--- a/gnucash/import-export/qif-imp/test/test-qif-parse.scm
+++ b/gnucash/import-export/qif-imp/test/test-qif-parse.scm
@ -248,6 +248,11 @@
    (qif-parse:check-number-formats '("10.50" "20.54")
                                    '(decimal comma integer)))

+  (test-equal "qif-parse:check-number-formats 1234.00 #f"
+    '(comma)
+    (qif-parse:check-number-formats '("123,45" #f)
+                                    '(decimal comma integer)))
+
  (test-equal "qif-parse:check-number-formats 1234 4567"
    '(decimal comma integer)
    (qif-parse:check-number-formats '("1234" "4567")