slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

test layout with a non-ascii description, first attempt

Browse Source
This commit is contained in:
Simon Michael 2009-05-14 17:05:10 +00:00
parent 3e6943e5f6
commit 1ed196e262
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
Tests.hs
View File

@ -751,6 +751,23 @@ tests = [
,"showLedgerTransaction" ~: do ,"showLedgerTransaction" ~: do
showLedgerTransaction entry1 `is` entry1_str 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"
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"
]
,"smart dates" ~: do ,"smart dates" ~: do
let str `gives` datestr = fixSmartDateStr (parsedate "2008/11/26") str `is` datestr let str `gives` datestr = fixSmartDateStr (parsedate "2008/11/26") str `is` datestr
"1999-12-02" `gives` "1999/12/02" "1999-12-02" `gives` "1999/12/02"