From 5d7800464647ffeb896b82b8e59126625dac4933 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Fri, 27 Feb 2009 03:38:24 +0000 Subject: [PATCH] name unnamed tests --- Tests.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Tests.hs b/Tests.hs index 5145d39d8..d6cbba7bd 100644 --- a/Tests.hs +++ b/Tests.hs @@ -264,9 +264,9 @@ misc_tests = TestList [ newparse_tests = TestList [ sameParseTests ] where sameParseTests = TestList $ map sameParse [ account1, account2, account3, account4 ] sameParse (str1, str2) - = TestCase $ do l1 <- rawledgerfromstring str1 - l2 <- rawledgerfromstring str2 - (l1 @=? l2) + = "newparse_tests" ~: TestCase $ do l1 <- rawledgerfromstring str1 + l2 <- rawledgerfromstring str2 + (l1 @=? l2) 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" )