name unnamed tests

2009-02-27 03:38:24 +00:00 · 2009-02-27 03:38:24 +00:00 · 5d78004646
commit 5d78004646
parent 2bfdad6fd9
1 changed files with 3 additions and 3 deletions
--- a/Tests.hs
+++ b/Tests.hs
@ -264,7 +264,7 @@ misc_tests = TestList [
 newparse_tests = TestList [ sameParseTests ]
    where sameParseTests = TestList $ map sameParse [ account1, account2, account3, account4 ]
          sameParse (str1, str2) 
-              = TestCase $ do l1 <- rawledgerfromstring str1                         
+              = "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"