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

data: fix unit test by ignoring sourcepos

Browse Source
This commit is contained in:
Julien Moutinho 2014-08-07 17:47:21 +02:00
parent a6190420b2
commit ec243a1bea
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
hledger/Hledger/Cli.hs
View File

@ -63,8 +63,9 @@ tests_Hledger_Cli = TestList
,"account directive" ~: ,"account directive" ~:
let sameParse str1 str2 = do j1 <- readJournal Nothing Nothing True Nothing str1 >>= either error' return let ignoresourcepos j = j{jtxns=map (\t -> t{tsourcepos=nullsourcepos}) (jtxns j)} in
j2 <- readJournal Nothing Nothing True Nothing str2 >>= either error' return let sameParse str1 str2 = do j1 <- readJournal Nothing Nothing True Nothing str1 >>= either error' (return . ignoresourcepos)
j2 <- readJournal Nothing Nothing True Nothing str2 >>= either error' (return . ignoresourcepos)
j1 `is` j2{filereadtime=filereadtime j1, files=files j1, jContext=jContext j1} j1 `is` j2{filereadtime=filereadtime j1, files=files j1, jContext=jContext j1}
in TestList in TestList
[ [