fix some tests

This commit is contained in:
Simon Michael 2010-11-14 20:03:49 +00:00
parent 0d6e696699
commit 27a0900ea9
2 changed files with 2 additions and 2 deletions

View File

@ -62,7 +62,7 @@ tests = TestList [
"account directive" ~: "account directive" ~:
let sameParse str1 str2 = do j1 <- readJournal Nothing str1 >>= either error' return let sameParse str1 str2 = do j1 <- readJournal Nothing str1 >>= either error' return
j2 <- readJournal Nothing str2 >>= either error' return j2 <- readJournal Nothing str2 >>= either error' return
j1 `is` j2{filereadtime=filereadtime j1, files=files j1} j1 `is` j2{filereadtime=filereadtime j1, files=files j1, jContext=jContext j1}
in TestList in TestList
[ [
"account directive 1" ~: sameParse "account directive 1" ~: sameParse

View File

@ -1,5 +1,5 @@
# print with negative account pattern should exclude transactions containing a matched posting # print with negative account pattern should exclude transactions containing a matched posting
hledger -f- print not:a bin/hledger -f- print not:a
<<< <<<
2010/1/1 x 2010/1/1 x
a 1 a 1