(("1,000.00" (decimal comma integer)) #f (decimal))
(("1,000.000" (decimal comma integer)) #f (decimal))
(("1.000,000" (decimal comma integer)) #f (comma))
(("1000" (decimal comma integer)) #f (decimal comma integer))
(("1000" (decimal comma)) #f (decimal comma))
(("1,000" (decimal comma integer)) #f (decimal comma))
(("1,000" (decimal comma integer)) #f (decimal comma))
(("1,000.00" (comma)) #f ())
(("1,000.01" (foo bar)) #t (qif-io:arg-type qif-io:check-number-format number-format foo))
(("1,000" decimal) #t (qif-io:arg-type qif-io:check-number-format list decimal))
((#f (decimal comma)) #t (qif-io:arg-type qif-io:check-number-format string #f))