test labels

2008-10-10 11:12:54 +00:00 · 2008-10-10 11:12:54 +00:00 · 19fbe17ff4
commit 19fbe17ff4
parent d172cd0d6e
1 changed files with 3 additions and 2 deletions
--- a/Tests.hs
+++ b/Tests.hs
@ -39,8 +39,9 @@ alltests = concattests [
 tests = 
 TestList
 [
-         show (dollars 1)   ~?= "$1.00"
-        ,show (hours 1)     ~?= "h1.00"      -- should be 1.0h
+         "display dollar amount" ~: show (dollars 1) ~?= "$1.00"
+         
+        ,"display time amount" ~: show (hours 1) ~?= "1.0h"

        ,"amount precision"   ~: do
           let a1 = Amount (getcurrency "$") 1.23 1