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

name unnamed tests

Browse Source
This commit is contained in:
Simon Michael 2009-02-27 03:38:24 +00:00
parent 2bfdad6fd9
commit 5d78004646
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Tests.hs
View File

@ -264,9 +264,9 @@ misc_tests = TestList [
newparse_tests = TestList [ sameParseTests ] newparse_tests = TestList [ sameParseTests ]
where sameParseTests = TestList $ map sameParse [ account1, account2, account3, account4 ] where sameParseTests = TestList $ map sameParse [ account1, account2, account3, account4 ]
sameParse (str1, str2) sameParse (str1, str2)
= TestCase $ do l1 <- rawledgerfromstring str1 = "newparse_tests" ~: TestCase $ do l1 <- rawledgerfromstring str1
l2 <- rawledgerfromstring str2 l2 <- rawledgerfromstring str2
(l1 @=? l2) (l1 @=? l2)
account1 = ( "2008/12/07 One\n test:from $-1\n test:to $1\n" account1 = ( "2008/12/07 One\n test:from $-1\n test:to $1\n"
, "!account test\n2008/12/07 One\n from $-1\n to $1\n" , "!account test\n2008/12/07 One\n from $-1\n to $1\n"
) )