From 7c0421ec5e834c0f320e982a85654e4e771c14ad Mon Sep 17 00:00:00 2001 From: Sergey Astanin Date: Thu, 14 May 2009 21:43:26 +0000 Subject: [PATCH] basic unicode layout tests for showRegisterReport and showBalanceReport --- Tests.hs | 27 ++++++++++++--------------- 1 file changed, 12 insertions(+), 15 deletions(-) diff --git a/Tests.hs b/Tests.hs index a54d969f2..1c0d0d06b 100644 --- a/Tests.hs +++ b/Tests.hs @@ -751,22 +751,19 @@ tests = [ ,"showLedgerTransaction" ~: do showLedgerTransaction entry1 `is` entry1_str - ,"non-ascii description" ~: do -- hledger-0.4-io-utf8-fixed-balance-register-print.diff - -- ascii - l <- ledgerFromStringWithOpts [] [] sampletime "2009/01/01 apple\n a 1\n b\n" + ,"unicode in balance layout" ~: do + l <- ledgerFromStringWithOpts [] [] sampletime + "2009/01/01 * медвежья шкура\n расходы:покупки 100\n актив:наличные\n" + showBalanceReport [] [] l `is` unlines + [" -100 актив:наличные" + ," 100 расходы:покупки"] + + ,"unicode in register layout" ~: do + l <- ledgerFromStringWithOpts [] [] sampletime + "2009/01/01 * медвежья шкура\n расходы:покупки 100\n актив:наличные\n" showRegisterReport [] [] l `is` unlines - ["2009/01/01 apple a 1 1" - ," b -1 0" - ] - -- non-ascii - l <- ledgerFromStringWithOpts [] [] sampletime "2009/01/01 жизнь\n a 1\n b\n" - showRegisterReport [] [] l `is` unlines --- this passes: --- ["2009/01/01 жизнь a 1 1" --- but this is what I see interactively: - ["2009/01/01 жизнь a 1 1" - ," b -1 0" - ] + ["2009/01/01 медвежья шкура расходы:покупки 100 100" + ," актив:наличные -100 0"] ,"smart dates" ~: do let str `gives` datestr = fixSmartDateStr (parsedate "2008/11/26") str `is` datestr